THE 



'Z&D©[^§> 




BOC DISASSEMBLER 



OWNER'S MANUAL 



P.O. BOX 1110 DEL MAR, CA 92014 714-942-2400 



TABLE OF CONTENTS 
80C DISASSEMBLER FOR THE COLOR COMPUTER 



Instructions for Use l 

Appendix I : 

Examples of the Disassembler's Output 5 

Appendix II: 

Interfacing a Printer to the Color Computer.. 7 
Appendix III : 

Memory Map of the Color Computer 8 

Appendix IV: 

Interesting Addresses in the BASIC ROM 11 

Appendix V: 

Disassembling the Extended BASIC ROM 15 

Source Listing 001 



COPYRIGHT NOTICE 

This manual is intended for the personal use and pleasure by 
the purchaser. The entire contents has been copyrighted by 
The Micro Works , Inc . , and reproduction by any means is for- 
bidden without permission. Use of this program or any part 
thereof for any purpose other than single end use is strictly 
prohibited. 



WARRANTY STATEMENT 

80C Disassembler is provided as is without warranty. Reasonable 
care has been taken to insure that the program operates as de- 
scribed in this manual. If you find a discrepancy in which it 
does not operate as such, please notify us. We will attempt to 
correct any errors brought to our attention, however, we make no 
guarantee to do so. 

Copyright 1981 by The Micro Works, Inc. 



THE COLOR COMPUTER DISASSEMBLER FROM THE MICRO WORKS 

The Color Computer Disassembler is at program which is designed to 
ran in the Radio Shack Color Computer and to provide readable listings 
of machine- language programs in the memory of the computer. These 
listings may be displayed on the computer's screen or sent to a 
printer, and may be in any of several formats. The code to be dis- 
assembled may be resident in the computer or may be any 6809 code 
which is loaded into the computer's memory. This document describes 
the operation of the disassembler, and should enable you to quickly 
begin use of the program as well as allowing you later to understand 
and fully use the many options available. 

This program is on a cassette tape which should be loaded with the 
CLOADM command. It will I oad s tar t i ng at 1 oc at jj jo— JfeD_SQO ^rLd-_uii-U— uO,n e 
oul-i Py BASIC program that _-ls—tJ3.er.e. BASIC should not be run after 
thT^tape is 1 oadedT TypeEXEC to run the disassembler. 

You will be prompted for a series of parameters, starting with 
"START ADDRESS". To get started, simply type a carriage return 
("ENTER" key) in response to every question. In this program, all 
answers may be "defaulted" with a carriage return. After the last 
question, there will be a pause (for pass 1, the symbol table being 
built). When all the questions are defaulted, the entire BASIC ROM 
will be disassembled and pass 1 will take about 45 seconds. Then 
the listing will start. 

To control the speed of the listing, the following keys may be used: 

- Space , bar will put the listing in single step mo de; another key 
wi 1 1 put it back. 

- S hift-® will stop the listijn a as it does in BASIC. 

- " S" will speed up and slow down the listing. 

~ BREAK ke y will allow t_b_e_JLi..s t ihq to be restarted at a nother 
address . 

The question "RESTART WHERE?" will appear at the end of the listing 
or when BREAK is pressed. I f it is defaulted (return is ._ Bce^s-ed) 
th e program will restart f r om_J Uie-Jxaj34^n-i-nq . Some of the questions 
which the program asks pertain to formatting and will be used often? 
some pertain to exactly what should be disassembled and will depend 
upon your application; still others are only for special cases and 
you may never need to answer them. 

For all of your responses, your options are as follows: 

(1) You may default by simply pressing RETURN. All questions may be 
defaulted. When in doubt as to the meaning of a question, just 
press RETURN. 

(2) Addresses may be entered as a string of hex digits. If mor e 
than— f-Q-UJC- digits ar_e_ejit er ed, the last four are us bj L^Z— Normal 
edit jna chara cters- such as backsp ace are allo wed. 

*3> A ddresses may be entered in _ b-as_e_-L en by prefacing them wj th a 
P e riod ( eg , ,_^ JL£il-J-S-_i^e^s^ ) 

(4) Yes / No questions may be answered with "Y" or "YES" or "N" or 
"NO". Default (RETURN) is the same as NO. 

(5) The question "AREA OPTIONS" has a different format and is 



discussed below. When in doubt, default. 
(6) You may press the EREAK key. This will restart the proaram 
at the beginning. 

The first question asks for an address at which to start disassem- 
bling, and the next for an address at which to stop. If these are 
both defaulted, you will be asked later if you want to default the 
entire definition of what to disassemble (see below). 



K^CwBiS^Jf 



The next question asks for an offset to where the code can be found. 
T his is only used if some code has been copied to an address whe re dhidt 
iTTdoes not ordu var Hy run, an d is usually def au,L t^J,wbTcIh^i^the 
same as a ziriT. ~ " "~~ ' " 

Next is the symbol table start and end address. This specifies some 
unused area of RAM which the program may use freely. The start an d 
e nd default respectively to just after the end of the disasse mbler 
an d 50 bytes below the stack . They only need to be entered if these 
vaTues wm FhTer fere with~a program being disassembled. 

Next is the area options, so we had best digress a little into the 
idea behind them. A program is generally made up of machine code, 
data tables, address tables, and so forth, all intermixed at the 
discretion of whoever wrote the program. Since there is no reason why 
data can't look like code, it is not possible for any disassembler to 
automatically figure out the boundaries of these areas. The "AREA 
OPTIONS" in this disassembler allow you to specify how to treat each 
area within the block being disassembled. 

Disassembly is normally a two-step process. First, you disassemble 
the entire block treating everything as code. Certain blocks will 
stand out as being data, and the ASCII column on the output will help 
to identify text strings. You note a list of these areas and then 
enter them to make a new listing which is much "cleaner". If a 
perfect listing is desired, the new listing is studied at length until 
a complete list of areas is discovered, and the disassembler is run 
yet aaain. 

The area types allowed by this program are as follows: 

p ~ P rogram are a (machine code) 

D ~ data area (FCB mnemonics) 

A - address are a (FDE mnemonics) 

S - fexV's'trTng ar_ ea (FCC mnemonics) 

V - variable are a. (RME mnemonics - contents of memory ignored) 

T - fane arlTa"~"7alternatinq FDB and„F,C B) 

E - end of last area 

To enter an area, type the letter of the area type, a space, and an 
address. For example, if there is data at addresses 4567 through 
4568, type: 

D 4567 (data area starts at 4567) 

F 4569 (program area resumes at 4569, one byte past the 

last data byte) 
After the last option is entered, simply press RETURN. 




The actual effect of entering a starting address (in answer to the 
first question) is to have that address entered in the area table as 
a "P" area. If that address is later specified as another type (or 
if any area is respecified) the new definition simply takes the place 
of the old one. T he effect of entering 
to the second question) is to have that 

WheTTTTEYOlNis""!!^^ to the AREA OPTION question f 

(whether or not it is the first time it was asked) the program checks 
that there are at least two boundaries specified, and if not the 
question is repeated. 



j*n_3njdjjag_addrLesj 
je»ltjeJC^i-Jus-_aja_JlE!l 



iwer 



If nothing has been entered, however, you are given a choice 
copying the last set of areas used. Th e gj^e^JLi^jo_J^_j3Lh,tiase^d 
t hat a HO or default answer j &i-lJ~-CJ3-py-— i-n— khe— ^pr-ev-4-o.us»-s-e-t o 
area sT~~Th is table maVThen b e added to. This is useful 
a set of areas, and restarting the program whenever 
is discovered. If this option is used_ wJhejrJLJxe--prLi 
1 graded, however, the defauTt HBet ... - 



of 
so 



in bui lding 
new area 

LS^fijTSt^ 



i»-^S^M)r-- M %"0 ,iwi «Tirtl OSC 



c o rresponding to the Level J,.jas^IXLajcit^j^pr^treip— ROM . 

The remaining questions deal with the format of the output. You 
may select the full output mode, the scan format, or the default 

format. T he full output take s two lines on the screen for eac h Line 

ojP__qenerated source,, but 'Contains t he^c omp Te£aTj^^ c e 

an gr^ross refeTeTTceliZdr^BTsjs ^ Tf^aTT^b^colunm is available, 

it" is recommended that thTs~~f*ormat be used. The s can format contai ns 
the ASCII column and complete data columns at tKe~~^eTpense^T~Tabe ls. 
and is useful for deterl irrn Tnljr^ 

are. The default output mode gives only the JFJr st two_J>.v.ta sJji£-t'he 
hex value in OT^^r~XQ~^^^~v^Em~TW~iraS WT^". ""Bollrrthe scan and def ault 



f ormaT 
a 



TTXTTnirsJjwiTlfit in oniTTine across the screen 



or 



_ . ac ross 

32-column pr i n t er_ ._and— s-o— w4^4~-b^-_ha.L£--asl-Lojtia-^LS--,the ful 1 list i ng 



The next question is whether or 
Any printer that works with BASI 
If the printer is requested, the 
Actually anything wider that 64 
For a narrow printer, the next q 
This is for the benefit of those 
a carriage return / line feed on 
generated carriage return would 
default), and the listing contai 
"YES" to this question next time 



not to send the output to the printer. 
C will work with the disassembler, 
n you are asked if it is 80 columns, 
columns will work in 80-column mode, 
uestion is: "NO CR ON COL 32?". 
printers which automatically produce 
column 32 and for which the program- 
be redundant. If you type "NO" (or 
ns unwanted blank lines, try typing 



The program now executes Pass 1. This will take anywhere from no 
apparent time on a small disassembly to 45 seconds on the entire 
BASIC ROM. When Pass 1 is complete. Pass 2 starts and the listing 
will be produced. 



When Pass 2 finishes, or is stopped by the BREAK key, it asks 
where to restart. Any address may be given within the area covered by 
Pass 1. If an address is given beyond the end of Pass 1 the question 
will be repeated. If it is before Pass 1, however, the disassembler 
will not object and will disassemble using the last area type it was 
left in. This last feature allows the disassembler to be used like 



a one pass disassembler by specifying a short Pass 1 at the top of 
memory, then restarting wherever you want to disassemble. If you do 
not give an address to the restart question, the whole program is 
restarted. 

The cross reference produced by the full format listing is used 
to find every explicit reference to any address. It is used as 
follows: Find the address of the label in question. Look it up in 
the table at the end, which is sorted by address. (Labels within the 
program are listed first, and externals listed separately.) The 
number given after the address in that table is the address of the 
last reference to that label. Now look at that reference. A number 
given in the cross-reference column at that line will point to the 
next prior reference, and so on. Four dots in the cross-reference 
column indicates that that is the first reference to that address, 
and is the end of the chain. A blank in the cross-reference column 
indicates that that is the only reference to an address and saves 
looking up the address in the table at the end. 

H )liIg__th^J.isting j_s being gener ated, numer ic k ey^^niay-Jb-e_-Pr-es s ed 
t o change listjnjL modes . 1, g7""^r^"ltial7"Te~^pressed tg_chanqe in t o 

F ull, Scan , and, Default mode,s_jcjULOgi^,yely J ar^J^may be 

pressed to change into three more modes which are seljdjpjmjised : 
Soy y ce~~pnTj^^ lT~one r 1 i n e 

modes whTc!T¥airTfTcTvarious fields in order to include others 
within the limited width of the screen. 

Sometimes there is a reference to a label that is not on the first 
byte of an instruction. This happens often when disassembling 
a program where the data and variable areas are not known. It 
also occurs in perfectly disassembled listings when the programmer 
used such dirty tricks as using a Compare X immediate opcode as 
"Skip over two bytes" and following it with a two byte instruction. 
There are two ways this disassembler deals with this. To increase 
readability, it normally will set the program counter back so as to 
disassemble the instruction at the label. This method, though nice, 
is not correct in that the listing produced will not then reassemble 
to the original code, and for this reason the "Source Only" format 
causes it to print labels of the form: 

LI 234 EQU *-l 
In scan mode, where such backward referenced labels are mostly due 
to lack of area specifications, they will also print as EQUs . 



APPENDIX I: EXAMPLES OF THE DISASSEMBLER'S OUTPUT 

THE FOLLOWING ARE EXAMPLES OF THE OUTPUT OF THE DISASSEMBLER. 
THE THREE FORMATS ARE SHOWN. THE FULL FORMAT, WHICH TAKES 
DOUBLE LINES ON A 32-COLUMN PRINTER, IS SHOWN PRINTED ON BOTH 
A 32-COLUMN PRINTER AND AN 80-COLUMN PRINTER. 

IN ADDITION, AN EXAMPLE IS GIVEN OF THE HEADER OUTPUT WHICH 
IS PRINTED AT THE START OF LISTINGS. THIS INCLUDES NAM, ORG, 
AND EQU STATEMENTS WHICH WOULD ALLOW THE DISASSEMBLY TO BE 
REASSEMBLED. 



X0000 

X3119 
X313C 
X3141 
X31C1 
X330C 
X3C2A 
X3E5A 
X3EF5 
X3EF9 
X3F0A 
X3F1C 
X3F35 
X3F36 
X4484 
XCDS0 
XD286 
XD2B5 
XD2C4 
XD2C7 
XD30F 
XD312 



NAM 
ORG 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



IS ASM"? 

3000 _J 



DISASM' 

*0000 

$3119 

$313C 

*3141 

*31C1 

*33DC 

$3C2A 

*3E5A 

*3EF5 

*3EF9 

*3F0A 

*3F1C 

*3F35 

*3F36 i 

$4434 \ 

♦CD68 \ 

*D2S6 \ 

*D2B5 

*D2C4 

*D2C7 / 



HEADER WHICH ALLOWS REASSEMBLY OF OUTPUT 



EXTERNAL EQUATES 



330F J 



FULL FORMAT, 80-COLUMN PRINTER 



382C 


BDD2C7 


D2C7 


302F 


2502 


3033 


3831 


4F 




3032 


39 




3033 


BDD2C4 


D2C4 


3036 


4D 




3037 


39 




3838 


01 




3039 


2C10 


384B 


393A 






303B 


FF3F36 


3F36 


303E 


BD3C2A 


3C2A 


3041 


53 




3042 


4F 




3043 


55 




3044 


52 




3845 


43 





=RG 




JSR 


XD2C7 


v 




BLO 


L0084 







CLRA 




9 




RTS 




=RD 


L0804 


JSR 


XD2C4 


M 




TSTA 




9 




RTS 




, 




FCB 


*01 « 


* » 


L0880 


BGE 
EQU 


L0005 




••+■— 1 - — 


. ?S 




STU 


X3F36 


=< + 




JSR 


X3C2A 






COMB 









CLRA 




u 




FCB 


$55 « 


R 




FCB 


$52 « 


c 




COMA 





/ 



UN-DISASSEMBLABLE BYTES 
ARE FLAGGED WITH "<< " 



■A LABEL ON THE SECOND 
BYTE OF INSTRUCTION 



TEXT STRINGS SHOW UP IN 
THE ASCII COLUMN 



"SCAN" FORMAT 



HEX ADDRESS 



HEX INSTRUCTION (UP TO 4 BYTES 



RA 


L08 1 1 


TX 


< U000C 


tx 


<U808D 


TX 


< U000E 



A0B8 20F1 

AOBA 9F74 

A0BC 9F27 

A0BE 9F23 

A0C8 3089FF38I LEAX XFF-^8, X 

A0C4 9F21 I STK <U098F 

A8C6 IF 14 | TFR 



A DASH INDICATES 



<1 
, t 

0. 
I 



ASCII EQUIVALENT (UP TO 2 BYTES) ; 
A " . " INDICATES UNPRINTABLE 



LABEL 



A093 AF48 
A895 8E01+ 
A098 8639 
A09A A780 L0Q0F 
A89C 8C81+ 
A89F 26F9 
A0A1 B782+ 
A8A4 8E66+ 
A0A7 6F88 
A0A9 9F19 
A8AB A682 L8011 
A0AD 43/ \ 




STX 8 
LDX #U8007 
LDA #$39 "9" 
STA ., X+ 
CMPX #U0888 
BNE L008F 

U0009 
#U000A 

, X+ 

< U00SB 



STA 
LDX 
CLR 
STX 



"/ 



LDA 2, X 
COMA 



UP TO 2 BYTES OF HEX 



A "+" INDICATES MORE THAN 2 BYTES 



A0E0 
A0E2 
A0E4 
A0E6 
A0E8 



9F72 0072 A81D 

STX < U0Q02 

8655 

LDA #$55 "U" 

9771 8871 A017 

STA <U0081 

200B A0F3 

BRA L0015 

12 
L0814 NOP 
A0E9 \ 0F6F 086F 

\ CLR <U0013 
A0EB \ BDAD33 AD33 

\ JSR\ L0016 \ 

\ \ REFERENCED ADDRESS 

LABEL 



FULL F ORMAT, NARROW PRINTER 

r ASCII EQUIVALENT (ALL 5 BYTES) 



CROSS REFERENCE POINTER 
(LAST ADDRESS TO REFERENCE SAME ADDRESS) 



\ 



HEX INSTRUCTION (UP TO 5 BYTES) 



HEX ADDRESS 



APPENDIX II: A NOTE ON INTERFACING A PRINTER TO THE COLOR COMPUTER 



As stated in the Disassembler manual, any printer that will work with 
BASIC will work with the Disassembler. Since there are some questions 
involved in making a printer work with BASIC, however, this note is 
included in hopes that we may be of some assistance. 



All references to printers are to serial printers 
no easy way to interface to a parallel printer. 



at present there is 



T he serial i npj jLt-JLJLne_jonu5JLJL e pulled up (to a ''br-e aJcJi--c^nd-i-t-uxn-)u. in 
or der fo r a Wint er to ru n. This is because the Output Character 
r ouTIne - "! n t hlTTSAlnC - ROM checks this line after sending each character 
and waits for it to be high. This may be used to handshake with a 
printer if it provides a signal which is high when ready to accept a 
character. If this is not needed, the darin q. ma ^y— i^is^ta-H—a-— 1X>K—puJ 1 up 

r esi5tor b ^, tujeein this p pi ^^ (whicl T " "™*y^ ) 

amP+BT " CFFus resistor Fs TaFqW~^rvoaqhn^ to affect the operation 
of this line as an input.) 

The baud rate is set in locations *95 and $96. It defaults to 600 
baud. It may be set using the Micro Works CEUG monitor, or by POKE 
statements with the following values! 



110 baud- poke 149, 1 

300 baud- poke 149,0 

600 baud- poke 149,0 

1200 baud- poke 149,0 

2400 baud- poke 149,0 



poke 150,202 
poke 150,180 
poke 150,8? 
poke 150,41 
poke 150,18 



Note that except for 110 baud, the byte at 149 (=*95) remains zero 
and need not be set. 

If the cable is used which plugs into the serial port and has a DB-25 
connector on the other end, the following points should be noted*. 

It is designed to plug into a modem. Th i^s means that it transm its 
on pin 2 of the 25-pin conn ector, and receives f r om~15T^r 3*T A^ 
p rint er wTTT pr ob ab i^el yOJOEil^ 

Ground is on pin 7 as usual. 

The carrier-detect line goes to pin 8 and may be safely ignored. 

An example of interfacing to a printer is given for the Malibu 165: 

Receive Data is expected on pin 3 of the printer's DE-25 connector, 
so this should be connected to the computer's Transmit line (or to 
pin 2 if the DE-25 cable is used). 

A positive-true Printer Euffer Not Full signal is available on pin 
20 of the printer's DB-25, and should be connected to the Receive 
line on the computer (or to pin 3 of the DB-25 cable). 

If the Buffer Not Full signal is not used, the computer's Receive 
line should be pulled up and the baud rate should not exceed 600 
(for this particular printer) so as not to overrun the printer's 
buffer. 



APPENDIX III 



MEMORY MAP OF THE COLOR COMPUTER: 

0000-03FF RAM USED EY BASIC INTERPRETER 

0400-05FF VIDEO DISPLAY (MAY BE MOVED) 

0600-OFFF RAM FOR USER PROGRAM 

1000-3FFF ADDITIONAL RAM IN 16K SYSTEM 

4000-7FFF NOT USED 

8000- 9FFF EXPANSION ROM SLOT 

AOOO-EFFF EASIC INTERPRETER ROM 

COOO-FEFF AVAILABLE TO CARTRIDGES 

FFOO-FFFF I/O AND CONTROL, SEE BELOW 

MEMORY MAP OF I/O AND CONTROL AREA: 

FF00-FF1F PIA 1 (ONLY 4 BYTES USED) 

FF20-FF3F PIA 2 (ONLY 4 BYTES USED) 

FF40-FF5F UNUSED (AVAILABLE TO CARTRIDGES FOR I/O) 

FF60-FFBF NOT USED 

FFCO-FFDF 6883 REGISTERS (SEE BELOW) 

FFEO-FFEF NOT USED 

FFFO-FFFF RESTART VECTORS (ECHO FROM BFFO) 

PIA 1 CONNECTIONS: 

FFOO BITS 0-6 KEYBOARD ROW INPUT 

BIT 7 JOYSTICK COMPARISON INPUT 

EITS 0-1 ALSO CONNECTED TO JOYSTICK SWITCHES 

FF01 PIA CONTROL REGISTER A 

CA1 IS 63.5 uSEC IRQ <ife— " 
CA2 IS OUTPUT TO LSB OF MUX 

FF02 BITS 0-7 KEYBOARD COLUMN OUTPUT 

FF03 PIA CONTROL REGISTER B 

CB1 IS 16.7 mSEC IRQ <^- — • 
CB2 IS OUTPUT TO MSB OF MUX 

PIA 2 CONNECTIONS: 

FF20 EIT CASSETTE DATA INPUT 
EIT 1 RS232 DATA OUTPUT 
EITS 2-7 OUTPUT TO DAC 

FF21 PIA CONTROL REGISTER A 

CA1 IS RS232 CARRIER DETECT FIRQ 
CA2 CASSETTE MOTOR CONTROL OUTPUT 

FF22 EIT RS232 DATA INPUT 



I/E" 



EIT 


1 


SINGLE BIT SOUND 


EIT 


2 


RAM SIZE JUMPER INPUT 


EIT 


3 


VDG CONTROL - "CSS" 


BIT 


4 


VDG CONTROL - "GMO" & 


EIT 


5 


VDG CONTROL - "GM1" 


BIT 


6 


VDG CONTROL - "GM2" 


EIT 


7 


VDG CONTROL - "A/G" 



8 



FF23 PIA CONTROL REGISTER B 
CE1 IS CARTRIDGE FIRG 
CE2 IS SOUND ENABLE OUTPUT 

NOTE ON USING PIA CONTROL REGISTERS - 

WHEN WRITING TO A CONTROL REGISTER, ALWAYS SET BITS 2, 4, AND 5. 

SET BIT TO ENABLE AN INTERRUPT FROM CA1 (OR CE1). 

SET BIT 1 TO LOOK FOR A RISING EDGE ON CA1 (OR CB1), OTHERWISE 
THE PIA WILL LOOK FOR A FALLING EDGE. 

SET BIT 3 TO TURN ON THE OUTPUT (CA2 OR CB2). 

WHEN READING, EIT 7 WILL EE SET IF AN EDGE HAS BEEN FOUND ON 

CA1 (OR CB1), AND WILL STAY SET UNTIL A READ IS DONE OF THE 
DATA REGISTER (THE EYTE BEFORE THE CONTROL REGISTER). 

EXAMPLES: 



LDA #*34 
STA *FF21 
LDA *FF21 
BPL NERF 
LDA *FF20 



NO INTERRUPT, FALLING EDGE, CA2 OFF 

CASSETTE MOTOR OFF 

GET CA1 FLAG 

BRANCH UNLESS CARRIER DETECT HAS GONE HIGH TO LOW 

RESET CA1 TO LOOK FOR NEXT TRANSITION 



THE DUAL 4-1 ANALOG MUX: 

THE TWO OUTPUTS CA2 AND CB2 FROM PIA 1 ARE USED TO CONTROL THE 
STATE OF AN ANALOG MULTIPLEXOR. O NE HALF OF THIS MUX DETERMIN ES 
WHI CH SIGNAL GOES TO THE TELEVISION SOUN D OUTPUT. AND THE OTHER 
HALF SELECTS WHICH JOYSTICK (AND WHETCtf^VEjmC^ 
IS~~TO~EE~COHFARED TFT1iE~l}UTPLpr"OF THE DAC. 



FFOl 



FF03 



SOUND OUT 



JOYSTICK IN 



34 
3C 
34 
3C 



34 
34 
3C 
3C 



6-BIT DAC 
FROM CASSETTE 
FROM CARTRIDGE 
NONE 



RIGHT HORIZONTAL 
RIGHT VERTICAL 
LEFT HORIZONTAL 
LEFT VERTICAL 



NOTE THAT THERE WILL BE NO SOUND OUT ANYTIME CB2 OF PIA2 
(FF23 EIT 3) IS LOW. THIS IS THE SOUND ENABLE BIT. IT DOES 
NOT AFFECT THE JOYSTICK INPUTS. 

LIST OF RESTART VECTORS: 



FFFO 


NOT USED 




FFF2 


SOFTWARE INT 


#3 


FFF4 


SOFTWARE INT 


#2 


FFF6 


FIRQ 




FFFB 


IRQ 




FFFA 


SOFTWARE INT 


#1 


FFFC 


NONMASKABLE 


INT 


FFFE 


RESET 





REGISTERS IN THE 6883: 

THESE REGISTERS ARE SET ONE BIT AT A TIME. A WRITE TO AN ODD 
ADDRESS SETS A BIT, AND A WRITE TO AN EVEN ADDRESS CLEARS A 
BIT. THE DATA WRITTEN IS IMMATERIAL. THE LOWEST ADDRESS IN 
A GROUP AFFECTS THE LEAST SIGNIFICANT BIT OF THE REGISTER, AND 
THE HIGHEST ADDRESS AFFECTS THE MOST SIGNIFICANT BIT. 



FFCO-FFC5 
FFC6-FFD3 
FFD4-FFD5 
FFD6-FFD9 
FFDA-FFDD 
FFDE-FFDF 



VIDEO DISPLAY MODE (NORMALLY OOO) 

ADDRESS OF START OF DISPLAY (BY 1/2 K INCREMENTS) 

RAM EANK (NOT USED) 

MPU SPEED (NORMALLY 00 FOR 0.9 MHz) 

MEMORY SIZE 

MEMORY MAP TYPE (0 FOR ROM-BASED SYSTEM) 



VIDEO DISPLAY GRAPHICS MODES: 



6883 MODE EITS --> 
684? CONTROL EITS — > 

INTERNAL ALPHANUMERICS 
EXTERNAL ALPHANUMERICS 
SEMI GRAPHICS - 4 
SEMI GRAPHICS - 6 
SEMI GRAPHICS - 8 
SEMI GRAPHICS - 12 
SEMI GRAPHICS - 24 
FULL GRAPHICS - 1C 
FULL GRAPHICS - 1R 
FULL GRAPHICS - 2C 
FULL GRAPHICS - 2R 
FULL GRAPHICS - 3C 
FULL GRAPHICS - 3R 
FULL GRAPHICS - 6C 
FULL GRAPHICS - 6R 













V2 


VI 


vo 


G/A 


GM2 


GM1 


GMO 


CSS 











X 


X 





X 














X 


X 


1 


X 














X 


X 





X 














X 


X 


1 


X 














X 


X 





X 





1 








X 


X 





X 


1 











X 


X 





X 


1 


1 





1 











X 








1 


1 








1 


X 








1 


1 





1 





X 





1 





1 





1 


1 


X 





1 


1 


1 


1 








X 


1 








1 


1 





1 


X 


1 





1 


1 


1 


1 





X 


1 


1 





1 


1 


1 


1 


X 


1 


1 
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APPENDIX IV 

THE FOLLOWING IS A LIST CONTAINING SOME INTERESTING ADDRESSES IN 
THE BASIC ROM. IT IS INTENDED TO AID IN THE UNDERSTANDING OF 
DISASSEMBLY LISTINGS. IT IS NOT IN ANY WAY COMPLETE AND NO 
REPRESENTATIONS ARE MADE AS TO ACCURACY OR APPLICABILITY. THE 
ADDRESSES SHOWN MAY INDICATE THE BEGINNING OF A GENERAL AREA AS 
OPPOSED TO ACTUAL ENTRY POINTS OF SUBROUTINES. CARE SHOULD BE 
EXERCISED IN THE UTILIZATION OF INFORMATION IN THIS LIST. 



-^ 



AOOO ADDRESS OF CHECK KEYEOARD 

A002 ADDRESS OF CHARACTER OUT 

A004 ADDRESS OF CASSETTE READ ON 

A006 ADDRESS OF BLOCK IN 

A008 ADDRESS OF BLOCK OUT 

AOOA ADDRESS OF JOYSTICK IN 

AOOC ADDRESS OF HEADER OUT 

AOOE SECONDARY RESET 

A02? PRIMARY RESET 

A06E HARDSTART (AFTER RESET) 

A0E8 SOFTSTART (AFTER RESET) 

A0F6 FIRQ ENTRY (ROM PACK CHECK) 

AlOD START OF AREA DOWNLOADED TO RAM AT *8F 

<4? A 129 START OF AREA DOWNLOADED TO RAM AT *10C 

A 170 INPUT CHARACTER, BIT 7 CLEAR 

A 176 INPUT CHARACTER 

A 199 BLINK CURSOR COLOR 

A1C1 CHECK KEYEOARD AND GET KEY IF PRESSED 

A26E TABLE OF CODES FOR NON-ALPHA KEYS 

A282 OUTPUT CHARACTER 

A2BF OUTPUT CHARACTER TO PRINTER (RS232) 

A30A OUTPUT CHARACTER TO SCREEN 

A390 INPUT LINE FROM KEYBOARD 

A416 CLOSE COMMAND 

A44C CSAVE COMMAND 

A498 CLOAD COMMAND 

A4FE CLOADM COMMAND 

A53E EXEC COMMAND 

A564 INKEY* FUNCTION 

A5CE EOF FUNCTION 

A5EC SKIPF 

A5F6 OPEN COMMAND 

A701 READ BLOCK FROM TAPE 

A70E ELOCK IN 

A7BD MOTOR COMMAND 
__-» A85C--~SJNEJjftELE FOR CASSETTE OUTcs^-- 

A8B0 SETCOHHANET 

A8B1 RESET COMMAND 

A8F5 POINT FUNCTION 

A910 CLS COMMAND 

A937 PRINT COPYRIGHT (CLS 9) 

A94B SOUND COMMAND 

A992 AUDIO COMMAND 
-~^A9B3 INTERRUPT PROCESSOR (60 HZ COUNTER) 

A9C6 JOYSTICK 

A9DE READ JOYSTICK VALUES 

AA29 FUNCTION ADDRESS TABLE 
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AA5JL OPERATION TABLE FOR: + - * / * AND OR 

(3 EYTES EACH: ADDRESSES AND PRECEDENCE VALUES) 

AA66 COMMAND NAME TABLE 

AB1A FUNCTION NAME TABLE. 

AB6? COMMAND ADDRESS TABLE 

AEAF ERROR CODE TABLE 

AEE1 TEXT STRINGS 

.ABF9 SEARCH STACK FOR GOSUB OR FOR 

AC1E OPEN UP SPACE IN MEMORY 

AC46 ERROR HANDLER ) 

AC73 IDLE LOOP 

AD1? NEW (CLEAR MEMORY) 

AD47 FOR COMMAND 

AD9E INTERPRET LOOP 

ADEE CHECK FOR BREAK OR PAUSE 

AE02 END COMMAND 

AE09 STOP COMMAND 

AE30 CONT COMMAND 

AE41 CLEAR COMMAND 

AE75 RUN COMMAND 

AES6 GO COMMAND 

AE92 GOSUB COMMAND 

AEA4 GOTO COMMAND 

AECO RETURN COMMAND 

AEE2 REM, ELSE 

AF14 IF COMMAND 

AF42 ON COMMAND 

AF67 GET UNSIGNED INTEGER 

AF89 LET COMMAND 

AFF5 INPUT 

B046 READ 

E0F8 NEXT COMMAND 

El 56 GET EXPRESSION 

B1CB ANOTHER ENTRY IN THE OPERATION TABLE 

E22§ GET OPERAND 

B290 EXECUTE FUNCTIONS 

E2D4 AND / OR OPERATIONS 

B2F4 RELATIONAL OPERATIONS 

E34E DIM 

E38F VARIABLE CREATION 

E3E4 EVALUATE INTEGER EXPRESSION 

E4EE MEM FUNCTION 

E4FD STR* FUNCTION 

E518 GET STRING 

E681 LEN FUNCTION 

E68C CHR* FUNCTION 

E6A0 ASC FUNCTION 

E6AB LEFT* FUNCTION 

E6C8 RIGHT* FUNCTION 

E6CF MID* FUNCTION 

B716 VAL FUNCTION 

B750 PEEK FUNCTION 

B757 POKE COMMAND 

B75E LLIST COMMAND 

B764 LIST COMMAND 
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B?E6 UNTOKENIZE 

BB21 TOKEN I ZE 

B8F7 PRINT 

B97E TAB 

-p B99C PRINT TEXT STRING 

B9B4 START OF FLOATING POINT ROUTINES - ROUNDING 

B9B9 SUBTRACT FROM FPAC1 

B9C2 ADD TO FPAC1 

BA79 TWO'S COMPLEMENT FPAC1 

BAC5 CONSTANT 1.0 

BACA MULTIPLY 

BB2F MOVE EX] TO FPAC2 

BB7D CONSTANT 10.0 

BB91 DIVIDE 

BC4A MOVE FPAC2 TO FPAC1 

BC5F MOVE FPAC1 TO FPAC2 

BC6D TEST FPAC1 FOR ZERO AND SIGN 

BC7A SGN FUNCTION 

BCEE INT FUNCTION 

BD12 CONVERT STRING TO FLOATING POINT 

BDB6 CONSTANTS - 99999999.9, 999999999, 1E+09 

EDD9 CONVERT FPAC1 TO ASCII 

BECO CONSTANT 0.5 

BEC5 SERIES OF 4 BYTE CONSTANTS 

BF1F RND FUNCTION 

BF78 SIN FUNCTION 

BFBD CONSTANTS - 2 PI, 0.25 

BFC8 SERIES OF 5 BYTE CONSTANTS 

BFFO RESTART VECTORS 

A FEW INTERESTING VARIABLES: 



—^0019 START OF USER RAM 

00 IB TOP OF PGM, BEGIN VARIABLES 

001D TOP OF VARIABLES 

00 IF TOP OF ARRAYS 

0021 TOP OF STACK 

0025 MEMORY LIMIT FOR BASIC 

0027 PHYSICAL MEMORY LIMIT 

— : >004F FLOATING ACC #1 (6 BYTES) 

-^3»005C FLOATING ACC #2 (6 BYTES) 

006F DEVICE NUMEER FOR OUTPUT CHARACTER 

0071 RESET FLAG = $55 FOR WARMSTART 

0072 RESTART POINTER 

008F START OF AREA DOWNLOADED FROM ROM 

0095 BAUD RATE FOR PRINTER (2 BYTES) 

0097 CR DELAY (2 BYTES) 

0098 COMMA FIELD WIDTH 
009A PRINTER WIDTH 

009F START OF GET NEXT CHARACTER SUBROUT 

010C ANOTHER AREA DOWNLOADED FROM ROM 

015E START OF TRAPS (3 BYTE SUBROUTINES 

ARE SET TO RTS C*393 

__>01DA CASSETTE BUFFER 
INPUT BUFFER 



(DbH'i 



INE 

WHICH 
) 




,U^-A 
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MEMORY 


MAP: 


0000 - 


03FF 


0400 - 


05FF 


0600 - 


■ ■ * ■ 



VARIABLES, TEMPS, ETC. 

LO-RES SCREEN AREA 

BASIC PROGRAM 

BASIC VARIABLES 

FREE MEMORY 

STACK 

STRINGS 
OFFF TOP OF MEMORY ON 4K MACHINE 
3FFF TOP OF MEMORY ON 16K MACHINE 
4000 - 7FFF UNUSED 

8000 - 9FFF EXTENDED BASIC ROM SOCKET 
AOOO - BFFF BASIC ROM 
COOO - FEFF EXTERNAL ROM SLOT 
FFOO - FF03 KEYBOARD PIA 
FF20 - FF23 VDG / DAC PIA 
FFCO - FFEF SAM REGISTERS 
FFFO - FFFF RESTART VECTORS (FROM BFFO - BFFF) 



14 



DISASSEMBLING THE EXTENDED BASIC ROM : APPENDIX V 

THE EXTENDED BASIC ROM, WHICH IS LOCATED AT ADDRESSES 8000 THROUGH 
9FFF, CAN BE DISASSEMBLED CLEANLY USING THE COMMANDS BELOW. 



D 
S 
P 
S 
A 
S 



START ADDRESS: 0000 

END ADDRESS: AOOO 

ADDRESS OFFSET: 

SYMBOL TABLE START: 

SYMBOL TABLE END: 

AREA OPTION: 

AREA OPTION: 

AREA OPTION: 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION! 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

AREA OPTION 

FULL OUTPUT? 



V 0000 
D 8000 
P 8002 
80DC 
80E8 
813C 
8183 
81F0 
B21E 
A 825? 
P 8273 
D S3AB 
P 83B0 
83E0 
B446 
84C4 
84F2 
890B 
890F 
8BD9 
8BDD 
929C 
92A6 
D 92DD 
P 92E9 
A 948A 
P 9494 
D 9706 
P 9710 
D 9839 
P 9852 
D 9C5B 
P 9CE6 
9E79 
9E9D 



D 
P 
D 
P 
S 
P 
S 
P 
A 
P 



D 
P 
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PAGE 001 0:GEN80.TXT TME MICRO 
GEN80: SOURCE GEN V 1.3 



W V-J lTLjrC.£l>' 



00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
00036 
00037 
00038 
00039 
00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
00048 
00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 



OPT 



NOG 



■ft*******************- •» •ft*-*.***** 



# 

* 
# 
* 
■ft 
* 
* 
* 



GEN80 - DISASSEMBLER 
ON TRS COLOR COMPUTER 

COPYRIGHT (c) 1981 EY 
THE MICRO WORKS, INC. 
HRITTEN BY ANDREW PHELPS 
LAST REVISED: 29 MAR 81 



* 
# 
# 
# 
# 

•» 
# 
•ft 



#*«###***ft##-*#*#*#ft»ft##ft»##ftft 

* THIS PROGRAM GENERATES A SOURCE 

* LISTING FROM A BLOCK OF 6809 MACHINE 

* CODE. INFORMATION ABOUT THE BOUNDARIES 
» OF TEXT STRINGS, VARIABLE AREAS, ETC. , 

* SUPPLIED EY THE OPERATOR, IS ENTERED 

* IN THE SYMBOL TABLE. PASS 1 THEN 

* FILLS IN THE SYMBOL TABLE, PASS 2 LISTS 

* THE GENERATED SOURCE. "SETMSK" 

* IS CALLED BEFORE PRINTING ANY FIELD 

» TO DETERMINE IF IT SHOULD BE PRINTED. 

* IN THE SYMBOL AREA, EXTERNALS GROW 

* BACK FROM THE END OF THE AREAS WHILE 

* LABELS GROW FROM THE BEGINNING. 



* MACRO DEFINITIONS: 
■ft 

STRG MACR TERMINATED STRING 

LBSR INDIS DISPLAY STRING 
FCC "\0" INSERT STRING 
IFEG NARG-2 IF 2 ARGS 

IFNC \1,RET 

FAIL ILLEGAL STRING OPTION 

ENDC 

FCB *D ADD A CR 
ENDC 

FCB TERMINATE STRING 
ENDM 



0000 



T MACR 
FCC "\0" 
FCB 
FDB *\1,0 
ENDM 

SETMSK MACR 
LBSR SMASK 
FCB \0 
ENDM 

A TRS80 EQU 



TABLE ENTRY 



CALL TO SET OUTMASK 







=0 FOR TRS80, =-1 FOR DOS 



PAGE 002 0sGEN80.TXT THE MICRO WORKS 

GEN80: SOURCE GEN V 1 = 3 



00058 

00059 

00060 

00061 A 

00062A 

00063A 

00064A 

00065A 

00066A 

00067A 

00068A 

00069A 

00070A 

00071 A 

00072A 

00073A 

00074A 

00075A 

00076A 

00077A 

00078A 

00079A 

00080A 

00081A 

00082A 

00083A 

00084A 

00085A 

00086A 

00087A 

00088A 

000B9A 

00090A 

00091 A 

00092A 

00093A 

00094A 

00095A 

00096A 

00097A 

00098A 

00099A 

00100A 

00101A 

00102A 

00103A 

00104A 

00105A 

00106 

00107A 

00108 

00109 



0000 

0002 

0004 

0006 

0008 

000A 

000B 

000D 

000F 

0011 

0012 

0014 

0015 

0016 

0017 

0019 

001B 

001C 

001D 

001E 

001F 

0021 

0023 

0025 

0027 

0028 

0029 

002A 

002B 

002C 

002D 

002E 

002F 

0031 

0032 

0033 

0034 

0036 

0037 

0038 

0039 

003A 

003C 

003E 

003F 

0040 





■»• 








* VARI 
# 

A FIRLAB 


ABLES 


(ALL 


0002 


RMB 


2 


0002 


A LASLAB 


RMB 


2 


0002 


A CURLAB 


RMB 


2 


0002 


A BOTEXT 


RMB 


2 


0002 


A TOPEXT 


RMB 


2 


0001 


A LRESET 


RMB 


1 


0002 


A PAC 


RMB 


2 


0002 


A PRC 


RMB 


2 


0002 


A REALPC 


RMB 


2 


0001 


A PASS 


RMB 


1 


0002 


A OFFSET 


RMB 


2 


0001 


A TFLAG 


RMB 


1 


0001 


A SSTEP 


RMB 


1 


0001 


A MODE 


RMB 


1 


0002 


A LOOKXT 


RMB 


2 


0002 


A MODADR 


RMB 


2 


0001 


A LENGTH 


RMB 


1 


0001 


A ALEN 


RMB 


1 


0001 


A EXTRA 


RMB 


1 


0001 


A MNENO 


RMB 


1 


0002 


A SAVEND 


RMB 


2 


0002 


A SAVSTR 


RMB 


2 


0002 


A LASREF 


RMB 


2 


0002 


A CURMSK 


RMB 


2 


0001 


A N0CR32 


RMB 




0001 


A FULLMD 


RMB 




0001 


A SCANMD 


RMB 




0001 


A SLOW 


RMB 




0001 


A SAVE IT 


RMB 




0001 


A C0L80 


RMB 




0001 


A PRINTR 


RMB 




0001 


A STARS 


RMB 




0002 


A MASKF 


RMB 


2 


0001 


A COLCNT 


RMB 




0001 


A DIF 


RMB 




0001 


A ECFLAG 


RMB 




0002 


A XT 


RMB 


2 


0001 


A INDFLG 


RMB 




0001 


A INDREG 


RME 




0001 


A DAREA 


RMB 




0001 


A TYPE 


RMB 




0002 


A XREFX 


RMB 




0002 


A REFX 


RMB 


2 


0001 


A MODOP 


RMB 




0001 


A CNT 


RMB 




0014 


A LBF 


RMB 


20 


0054 


A ENDLBF 


EQU 


* 


0054 


A NUMVAR 


EQU 


# 



(ALL RELATIVE TO U REGISTER) 



POINTER TO LABEL AREA 

LAST LAEEL + 1 

CURRENT PRINTED LABEL 

BOTTOM EXTERNAL ENTRY 

TOP EXTERNAL ENTRY 

1 => OLD LABELS PRESENT 

PC ADJUSTED FOR PREBYTE 

POINTER TO CODE 

POINTER TO WHERE CODE WOULD 

OR 1 
PC-REALPC 
FOR T OPTION 
SINGLE STEP FLAG 
INSTRUCTION ADDRESS MODE 
X TEMP FOR LOOKUP 
ADDRESS OF MODE PROCESSOR 
BYTES IN INSTRUCTION 
LENGTH MINUS PREBYTE 

THE 4TH LETTER OF MNEMONIC 

MNEMONIC NUMEER 

USED IN STARTUP 

USED IN STARTUP 

LAST LINE REF SET BY REFERN 

REQUESTED MASK 

1 => NO CR ON COL 32 
1 => FULL PRINT MODE 

1 => DON'T GO BACK ON EQU *- 

*FF => PRINT DELAY 

1 => TO BUFFER ON OUTEE 

=> NOT 80 COL 

=> TO SCREEN ONLY 

1 => DON'T PRINT HEX ADDR 
PRINT FIELD MASK 

LAST COLUMN PRINTED 

EQU *- VALUE 

<0 => SYMBOL USED > ONCE 

TEMP 

INDICATED INDIRECT MODES 

INDEX REGISTER (ASCII) 

DATA AREA OR PROG 

AT PARAMETER TIME 

IN XREF 

SYMBOL REFERENCED 

S OR U FLAG 



USED 
TEMP 
LAST 
PUSH 
COLUMN COUNTER IN XREF 



OPERAND LINE BUFFER 



TOTAL NUMBER OF VARIAELES 



0600 
0600 
0602 
0604 
0606 
060A 
060D 
060E 
0611 



0615 



PAGE 003 



00111 

00112 

00113 

00114 

001 15A 

001 16A 

00117A 

001 18A 

001 19A 

00120A 

00121A 

00122A 

00123A 

00124 

00125 

00126 

00127 

00163 

00164 

00165A 

00166 

00167 

00168 

00169 

00170 

00171A 

00172A 

00173A 

00174A 

00175A 

00176A 

00177A 

00178A 

00179A 

00180A 

00181A 

00182A 

00183A 

00184A 

001B5A 

00186A 

00187A 

00188A 

00189A 

00190A 

00191A 

00192A 

00193A 

00194A 

00195A 

00196A 

00197A 

00198A 

00199A 

00200A 

00201 A 

00202A 



0: GEN80.TXT TWE MICRO 
GENBO: SOURCE GEN V 1.3 



WORKS 




20 
6E 
7E 
39 
7E 
6E 



0617 
061A 
061C 
0630 
0650 
0654 
0656 
065A 
065C 
065E 
0660 
0662 
0675 
0678 
067A 
067D 
0680 
0691 
0694 
0696 
0699 
069C 
06B0 
06B3 
06B5 
06B8 
06BB 
06D3 
06D6 
06D8 
06DC 
06DE 



32 
IF 



30 
AF 
30 
AF 
IF 
86 
A7 

17 
26 
8E 
AF 

17 
26 
8E 
AF 

17 
26 
8E 
AF 

17 
26 
30 
AC 
27 



# 
* 



0000 A 

0000 A 
0000 A 
11 0617 
9F A002 A 
A2BF A 



A390 
9F A000 
02DD 



0000 



012C 



EB 
43 



8D 
C4 
8D 
42 
34 
01 
4A 



AC 



A 
A 



12D9 



13DB 



A 
A 
A 
A 



0348 09C0 
03 067D 
FFFF A 
C8 21 A 

032C 09C0 
03 0699 
0000 A 
CB IF A 

030D 09C0 

03 06B8 
0000 A 
C8 12 A 

02EA 09C0 

04 06DC 
8D 1251 
C4 A 
06 06E6 



PROGRAM HEADERS AND LINKAGES 



IFEQ 

ORG 

FDB 

FDB 

BRA 

JMP 

JMP 

RTS 

JMP 

JMP 

EQU 

ENDC 

IFNE 
ENDC 



A SCON FDB 



OUTCH 

OUTPRT 

INTPRT 

LINEIN 

POLCAT 

INBUF 



TRS80 

$600 





START 

C*A002] 

*A2BF 

*A390 

C*A0001 

*2DD 



TRS80 



SO AS 
FREAK 



NOT 
OUT 



TO 
BASIC 



OUT CHARACTER TO SCREEN 

PRINT CHARACTER 

NO PRINT I NIT NEEDED 

INPUT EDITED LINE 

CHECK KEYBOARD 

INPUT BUFFER ADDR 



300 



SLOW SPEED CONSTANT 



* PROGRAM START 
* 

START LEAS -NUMVAR,S LEAVE ROOM FOR VARS 
S,U SAVE STACK FRAME PTR 
(SOURCE GEN 6809), RET 

((C) 1980 BY THE MICRO NORKS),RET 
PROEND,PCR 
FIRLAB,U 
ENDDEF,PCR 
LASLAB,U 



START 1 



START2 



START4 



START3 



STARTS 



LEAS 

TFR 

STRG 

STRG 

LEAX 

STX 

LEAX 

STX 

TFR 

LDA 

STA 

STRG 

LBSR 

BNE 

LDX 

STX 

STRG 

LBSR 

BNE 

LDX 

STX 

STRG 

LBSR 

BNE 

LDX 

STX 

STRG 

LBSR 

BNE 

LEAX 

CPX 

BEQ 



LABELS NEED 
ADDRESS? ) 



ADDRESS? ) 



U,S 

#1 

LRESET,U 

(START 

ITYPE1 

START2 

#*FFFF 

SAVSTR,U 

(END 

I TYPE 1 

START4 

#0 

SAVEND,U 

(ADDRESS OFFSET? ) 

ITYPE1 

START3 

#0 

OFFSET, U 

(SYMBOL 

ITYPEl 

START5 

PROEND,PCR 

FIRLAB,U 

START? 



RESET 



TABLE START? ) 



PAGE 004 0: GEN80.TXT THE MICRO 
GEN80! SOURCE GEN V 1.3 



WORKS 



00203A 

00204A 

00205A 

00206A 

00207A 

00208A 

00209A 

002 10A 

0021 1A 

002 12A 

002 13A 

002 14A 

002 15A 

002 16A 

002 17A 

002 18A 

002 19A 

00220A 

00221 A 

00222A 

00223A 

00224 

00225 

00226 

00227 

00228A 

00229A 

00230A 

00231 A 

00232A 

00233A 

00234A 

00235A 

00236A 

00237A 

00238A 

00239A 

00240A 

00241 A 

00242A 

00243A 

00244A 

00243A 

00246A 

00247A 

00248A 

00249A 

00250A 

00231 A 

00252A 

00253A 

00254A 

00255 

00256A 

00257A 

00258 

00259A 



06E0 AF 
06E2 AF 
06E4 6F 
06E6 
06FC 17 
06FF 26 
0701 30 
0704 AF 
0706 AF 
0708 AE 
070B 8C 
070E 27 
0710 86 
0712 A7 
0715 17 
0718 AE 
071B 27 
071D 86 
071F A7 
0722 17 
0725 17 



0728 
0739 17 
073C 27 
073E A6 
0741 81 
0743 26 
0745 86 
0747 A7 
074A 17 
074D 17 
0750 20 
0752 Bl 
0754 27 
0756 81 
0758 27 
075A 81 
075C 27 
075E 81 
0760 27 
0762 81 
0764 27 
0766 81 
0768 27 
076A 81 
076C 27 
076E 
0781 20 

0783 8D 
0785 20 

07B7 6D 



C4 
42 
4A 



A 
A 
A 



A 
A 
A 
A 



02C1 09C0 
03 0704 
E8 CE A 
48 
46 

C8 21 
FFFF 
08 0718 
50 A 
C8 39 A 
00E5 07FD 
C8 IF A 
08 0725 
45 A 
C8 39 A 
00D8 07FD 
OOEA 0812 



02C5 0A01 
49 0787 
C8 39 A 
3F A 
OD 0752 
01 A 
CB 11 A 
OOFS 0842 
0226 0976 
D6 0728 



50 
2D 
53 
29 
44 
25 
41 
21 
56 
ID 
45 
19 
54 
15 

A5 

78 
Al 

4A 



A 

0783 

A 
0783 

A 
0783 

A 
0783 

A 
0783 

A 
0783 

A 
0783 

0728 

07FD 
0728 



STX 
STX 
CLR 

START? STRG 
LBSR 
BNE 
LEAX 

START6 STX 
STX 
LDX 
CMPX 
BEQ 
LDA 
STA 
LBSR 

START8 LDX 
BEQ 
LDA 
STA 
LBSR 

START9 LBSR 



FIRLAE,U 

LASLAE,U 

LRESET,U 

(SYMBOL 

ITYFE1 

START6 

-50, S 

T0PEXT,U 

BOTEXT,U 

SAVSTR,U 

#*FFFF 

START8 

#'P 

TYPE,U 

INSOPT 

SAVEND,U 

START9 

#'E 

TYPE,U 

INSOPT 

CLEANT 



TABLE END? ) 

LEAVE ROOM FOR STACK 
PUT TOP OF EXTERNALS 
NO EXTS YET 
WHERE WAS START 
DEFAULT? 

TYPE "PROGRAM" 

INSERT TO TABLE 

WAS END DEFAULTED? 

TYPE "END" 

PUT IN SYM TAB 

CLEAN OUT SYMBOL TABLE 



* 
OPT 



LOOP TO READ AREA BOUNDARIES 



0PT2 



OPT I 



STRG 

LBSR 

BEQ 

LDA 

CMPA 

BNE 

LDA 

STA 

LBSR 

LBSR 

BRA 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

STRG 

BRA 

BSR 
BRA 



A OPTCR TST 



(AREA 

ITYPE2 

OPTCR 

TYPE,U 

#'? 

0PT2 

#1 

PASS,U 

SETCRT 

PXREF 

OPT 

#'P 

OPT I 

#'S 

OPT I 

#'D 

OPT I 

#'A 

OPT I 

#'V 

OPT I 

#'E 

OPT I 

#'T 

OPT I 

(ILLEGAL 

OPT 

INSOPT 
OPT 

LRESET,U 



OPTION". ) 

GET LETTER/NUMBER 

NO OPTION ENTERED 

PRINT SYMBOL TABLE 

PASS TWO 

SO IT WILL PRINT 
OUTPUT TO CRT 
PRINT XREF TABLE 

PROGRAM 

STRING 

DATA 

ADDRESSES 

VARIABLES 

END 

TABLE 

OPT I ON), RET 



INSERT IT 
LOOP 



PAGE 005 0: GEN80.TXT THE M I CR.O 
GENBO: SOURCE GEN V 1.3 



WORKS 



00260A 

00261 A 

00262A 

00263A 

00264A 

00265A 

00266A 

00267A 

00268A 

00269A 

00270A 

00271 A 

00272A 

00273A 

00274A 

00275A 

00276 

00277 

00278 

00279A 

00280A 

002B1A 

00282A 

00283A 

00284A 

00285A 

00286A 

00287A 

00288A 

00289 

00290 

00291 

00292A 

00293A 

00294A 

00295A 

00296A 

00297A 

00298A 

00299A 

00300A 

00301 A 

00302A 

00303A 

00304A 

00305A 

00306A 

00307A 

00308A 

00309A 

003 10A 

0031 1A 

003 12A 

003 13A 

00314 

003 1 5 

00316 



0789 
078B 
078D 
078F 
0791 
0795 
07BA 
07BD 
07D4 
07D7 
07DB 
07DD 
07DF 
07F4 
07F7 
07FB 



26 
AE 
30 
AC 
1024 



32 07ED 
42 A 
14 A 
C4 A 
OOBC 0851 



16 FF6B 0728 



17 

1026 
6F 
8D 

17 

1026 

20 



07FD 6D 
07FF 27 
0801 EC 
0803 ED 
0B05 6F 
0807 IF 
0B09 17 
080C A6 
080F A7 
0811 39 



0812 

0814 

0816 

081B 

081A 

081D 

0820 

0822 

0824 

0826 

0B28 

082B 

082D 

0830 

0832 

0834 

0836 

0839 

083B 

083D 

083F 

0841 



AE 

AF 

AE 

IF 

6F 

10AC 

27 

EC 

84 

A7 

Al 

27 

A7 

ED 

EC 

ED 

CC 

ED 

31 

20 

AF 

39 



0268 0A3F 
FF4D 072B 
4A A 
33 0812 

0248 0A3F 
FF2D 0728 
54 0851 



) 



BNE 0PTCR2 

LDX LASLAB,U 

LEAX -12, X 

CMPX FIRLAE,U 

LBHS INGO 

STRG (MUST 

LBRA OPT 
0PTCR2 STRG 

LBSR 

LBNE 

CLR 

BSR 

STRG 

LBSR 

LBNE 

BRA 
# 

* INSERT AREA OPTION INTO TABLE 

LRESET,U NEED TO RESET? 

INS0P2 OK IF NOT 

FIRLAB,U START OF TABLE 

LASLAB,U IS NOW END TOO 

LRESET,U DON'T RESET AGAIN 

X,D 

LOOKLA 

TYPE,U 

0,X 



MUST BE TWO ENTRIES 

OK, AT LEAST TWO 

HAVE AT LEAST START AND END) 

NO DEFAULT TO GO TO 

(NON-DEFAULT AREAS? ) 

ITYPE3 YES-NO 

OPT IF YES 

LRESET,U 

CLEANT 

(ANY 

ITYPE3 

OPT 

INGO 



OTHER AREAS? 

YES-NO 

IF YES 



4A A INSOPT TST 
06 0807 BEQ 
C4 A LDD 
42 A STD 
4A A CLR 
10 A INS0P2 TFR 
064B 0E57 LBSR 
C8 39 A LDA 
84 A STA 

RTS 
* 

* CLEAN OUT UNNEEDED SYMBOLS 
* 



LOOK UP SYMBOL 
SET TO WHAT TYPE 
PUT TYPE INTO TABLE 



48 

46 

C4 

12 

C8 39 

42 

ID 

A4 

7F 

A4 

C8 39 



A 
A 
A 
A 
A 
A 
083F 
A 
A 
A 
A 

OE 083B 
C8 39 A 
81 



22 

81 

0000 

81 

26 

DE 

42 



A 
A 
A 
A 
A 
A 
081D 
A 



CLEANT LDX 

STX 

LDX 

TFR 

CLR 
CLEAN2 CMPY 

BEQ 

LDD 

ANDA 

STA 

CMPA 

BEQ 

STA 

STD 

LDD 

STD 

LDD 

STD 
CLEAN4 LEAY 

BRA 
CLEANS STX 

RTS 
* 

* SET PARAMETERS FOR CRT 



TOPEXT,U 

BOTEXT,U 

FIRLAB,U 

X Y 

TYPE,U 

LASLAB,U 

CLEANS 

0,Y 

#*7F 

0,Y 

TYPE,U 

CLEAN4 

TYPE,U 

,X++ 

2,Y 

,X++ 

#0 

,X++ 

6,Y 

CLEAN2 

LASLAB,U SAVE END POINTER 



CLEAR FLAG BIT 

SAME AS LAST TYPE? 

RECORD NEW TYPE 
MOVE SYMBOL DOWN 



NO XREF 

MOVE POINTER UP 



PAGE 006 0: GENBO.TXT THE MICRO 
GEN80: SOURCE GEN V 1.3 



WORKS 



003 17A 

003 18A 

003 19A 

00320A 

00321 A 

00322A 

00323 

00324 

00325 

00326A 

00327A 

00328A 

00329A 

00330A 

00331 A 

00332A 

00333A 

00334A 

00333A 

00336A 

00337 

00338 

00339 

0034*0A 

00341 A 

00342A 

00343 

00344A 

00345 

00346 

00348 

00349A 

00350A 

00351 A 

00352A 

00353A 

00354A 

00355A 

00356A 

00357A 

00338A 

00359A 

00360A 

00361 A 

00362A 

00363 

00364 

00365 

00366 

00367A 

00368A 

00369A 

00370A 

00371 A 

00372A 

00373 

00374 



0842 6F 
0845 6F 
0848 86 
084A A7 
084D 6F 
0850 39 



0851 86 
0853 A7 
0855 17 
0858 
0868 17 
0B6B 26 
086D 17 
0870 
0880 17 
0883 26 
0885 17 



0888 8D 
088A 
089A 17 

089D 27 



089F 6C 
0BA2 17 
08A5 
08B4 17 
08B7 27 
0BE9 6C 
08BC 6F 
08BF 20 
08C1 
0BD5 6F 
08D8 17 
OBDB 27 
08DD 86 
08DF A7 



08E2 AE 
08E4 AF 
08E6 AE 
08E8 AF 
08EA 6F 
08ED 17 



CB 15 
C8 2D 
01 

C8 27 
CB 2C 



A 
A 
A 
A 
A 



01 A 
4A A 
032A 0B82 

01D4 0A3F 
IB 0888 
03 ID 0B8D 

01 EC 0A3F 
03 0888 
030D 0B95 



B8 



0842 



C4 
44 
02 
4F 
C8 11 



A 
A 
A 
A 
A 



SETCRT CLR 

CLR 

LDA 

STA 

CLR 

RTS 
* 

* DECIDE ON OUTPUT FORMAT 



SSTEP,U NOT SINGLE STEP 

PRINTR,U NOT TO PRINTER 

#1 

N0CR32,U NO CR ON COL 32 

C0L80,U NOT 80 COLUMNS 



* 
INGO 



LDA #1 

STA LRESET,U LABELS NOW NEED RESET 

LBSR STFULL 

STRG (FULL OUTPUT?) 

LBSR ITYPE3 

BNE ING03 

LBSR STSCAN 

STRG (SCAN FORMAT?) 

LBSR ITYPE3 

BNE ING03 

LBSR STDEFL 
# 

* DECIDE ON OUTPUT UNIT 

ING03 



01A2 0A3F 
0000 A 
43 08E2 

0000 A 

CS 2D A 
FD68 060D 

0188 0A3F 
08 08C1 
CB 2C A 
C8 27 A 
21 0BE2 

C8 27 A 
0164 0A3F 
05 0BE2 

01 A 
C8 27 A 
08E2 A 



ING04 



BSR 

STRG 

LBSR 

IFEQ 

BEQ 

ENDC 

IFNE 

ENDC 

INC 

LBSR 

STRG 

LBSR 

BEQ 

INC 

CLR 

BRA 

STRG 

CLR 

LBSR 

BEQ 

LDA 

STA 

EQU 



SETCRT 

(TO 

ITYPE3 

TRS80 

ING02 

TRS80 



PRINTER? ) 
GET YES NO 

IF NO, CR32 OK 



PRINTR,U 

INTPRT 

(80- COLUMN? 

ITYPE3 

ING04 

C0L80,U 

N0CR32,U 

ING02 

(NO 

N0CR32,U 

ITYPE3 

ING02 

#1 

N0CR32,U 

* 



INIT PRINTER 
) 



IF NO 



CR ON COL 32?) 



GET YES NO 



0320 0C10 



ING02 
* 

* INIT FOR PASS ONE 
# 

LDX FIRLAB,U 

STX CURLAE,U 

LDX 2,X 

STX REALPC,U 

CLR PASS,U 

LBSR DOPASS 
* 

# PRINT HEADING & EXTERNALS 



BUILD SYMBOL TABLE 



PAGE 007 0: GEN80.TXT THE H I CR.O 
GEN80: SOURCE GEN V 1.3 



WORKS 



00375 

00376A 

00377A 

00378A 

00379A 

00380A 

00381 A 

00382A 

00383A 

00384A 

00385A 

00386A 

00387A 

00388A 

00389A 

00390A 

00391 A 

00392A 

00393A 

00394A 

00395A 

00396A 

00397A 

00398A 

00399A 

00400A 

00401 A 

00402A 

00403A 

00404A 

00405 

00406 

00407 

00408A 

00409A 

004 10A 

0041 1A 

004 12A 

004 13A 

004 14A 

004 15A 

004 16A 

004 17A 

004 18A 

004 19A 

00420A 

00421 A 

00422A 

00423A 

00424A 

00425 

00426 

00427 

0042BA 

00429A 

00430A 

00431 A 



08F0 
08F2 
08F5 
08F7 
08FA 
08FD 
0901 
0904 
0907 
0909 
090C 
090F 
0913 
0916 
0921 
0922 
0925 
0927 
0929 
092B 
092E 
0931 
0935 
0938 
093E 
093F 
0941 
0944 
0947 



094A 
094C 
094E 
0950 
0952 
0954 
0957 
095A 
095D 
0960 
0963 
0967 
096A 
096 D 
096E 
0971 
0973 



86 
A7 
86 
A7 
6F 

17 
CC 
ED 
17 
17 

17 



17 
AE 
AE 
AF 
17 
17 

17 



30 
17 
17 
17 



AE 
EC 
ED 
AE 
AF 
6F 
6F 
17 
17 
17 

17 



17 
8D 
16 



0976 AE 
0978 AF 
097B 86 
097D 6D 



01 
C8 
FF 
C8 
C8 



11 

2A 
2B 



A 
A 
A 
A 
A 



0BD4 UD8 
0000 A 
4F A 
0770 107C 
03F3 0D02 

08C6 11DC 



4E 
00 



A 
A 



08B3 11D8 



C4 
02 
4F 



A 
A 
A 



074E 107C 
03D1 0D02 



08A4 
4F 
00 
4F 



11DC 
A 
A 
A 



084B UBF 
0891 11D8 
0350 0C9A 






C4 

02 

4F 

C4 

44 

C8 15 

C8 2E 

02E3 0C10 

071C 107C 

039F 0D02 

0872 UDC 
45 A 
00 A 
0867 11D8 
03 0976 
0266 OBDC 



C4 

C8 3A 
04 
C8 2C 



A 
A 
A 
A 



LDA 

STA 

LDA 

STA 

CLR 

SETMSK 

LBSR 

LDD 

STD 

LBSR 

LBSR 

SETMSK 

LBSR 

FCC 

FCB 

LBSR 

LDX 

LDX 

STX 

LBSR 

LBSR 

SETMSK 

LBSR 

FCC 

FCB 

LEAX 

LBSR 

LBSR 

LESR 

PASS TWO 



LDX 
LDD 
STD 
D02 LDX 
STX 
CLR 
CLR 
LBSR 
LBSR 
LBSR 
SETMSK 
LBSR 
FCC 
FCB 
LBSR 
BSR 
LBRA 

* PRINT XREF 

PXREF LDX 
STX 

XREF1 LDA 
TST 



NULL LAEEL 



#1 

PASS,U 

#*FF START AT SLOW SPEED 

SLOW,U AND COMPLEMENT ON "S" 

SAVEIT,U PRINTING OK 

13 

CRLF 

#0 

REALPCU 

DATCOL 

LABEL2 

13 

PDATAI 

/NAM DISASM/ 



CRLF 

FIRLAB,U 

2,X 

REALPCU 

DATCOL 

LAEEL2 

13 

PDATAI 

/ORG */ 



REALPCU 

OUTADR 

CRLF 

EXTERN 



PRINT DATA COLUMNS 
NULL LAEEL 



ORG ADDRESS 



PRINT LIST OF EXTERNALS 



FIRLAB,U 

2,X 

REALPCU 

FIRLAE,U 

CURLAB,U 

SSTEP,U 

STARS, U 

DOPASS 

DATCOL 

LAEEL2 

13 

PDATAI 

/END/ 



CRLF 

PXREF 

RESTA 

TABLE 

FIRLAB,U 
XREFX,U 
#4 
C0L80,U 



NOT SINGLE STEPPING 

NOT BACKTRACK FIELD 

DO PASS TWO 

PRINT DATA FOR END STMT 

LEAVE LABEL BLANK 

ALWAYS PRINT 

PRINT "END" STMT 



NUMBER OF COLS 



PAGE 008 0sGENB0.TXT THE 
GEN80! SOURCE GEN V I 



MI CRO 

3 



WORKS 



00432A 

00433A 

00434A 

00435A 

00436A 

00437A 

00438A 

00439A 

00440A 

00441 A 

00442A 

00443A 

00444A 

00445A 

00446A 

00447A 

00448A 

00449A 

00450A 

00451A 

00452A 

00453A 

00454A 

00455A 

00456A 

0043? 

00458 

00459 

00460A 

00461 A 

00462A 

00463A 

00464A 

00465A 

00466A 

00467 

00468A 

00469A 

00470 

00471 

00472 

00473A 

00474A 

00475 

00476 

00477 

00478A 

00479A 

00480A 

00481 A 

00482A 

00483A 

00484A 

00485A 

00486A 

004S7A 

00488A 



0980 26 
0982 86 
0984 A7 
0987 17 
098A 17 
098D AE 
0990 AC 
0992 26 
0994 AE 
0996 AF 
0999 17 
099C 20 
099E AC 
09A0 27 
09A2 17 
09A5 17 
09A8 AE 
09AB 30 
09AD 17 
09B0 AF 
09E3 17 
09B6 6A 
09B9 26 
09BB 20 
09BD 16 



09C0 17 
09C3 25 
09C5 8E 
09C8 17 
09CB 26 
09CD 5D 
09CE 39 

09CF 
09EC 20 



09EE 
09FE 16 



0A01 17 
0A04 25 
0A06 8E 
0A09 A6 
OAOB 27 
OAOD A7 
0A10 81 
0A12 27 
0A14 A6 
0A16 81 
0A18 26 



02 0984 
02 A 
C8 3F A 
084E 11DS 
0163 OAFO 
C8 3A A 
42 A 
OA 099E 
46 A 
C8 3A A 
083C 11D8 
DD 097E 
48 A 
IB 09BD 
0575 0F1A 
07EE 1193 
C8 3A A 
04 A 
07DF 118F 
C8 3A A 
07D5 11 SB 
C8 3F A 
CF 098A 
EE 097E 
0818 11D8 



FC4B 060E 
29 09EE 
02DD A 
009C 0A67 
02 09CF 



U 



BNE XREF5 

LDA #2 

XREF5 STA CNT,U 

LBSR CRLF 

XREF2 LBSR PASCHK 

LDX XREFX,U 

CPX LASLAB,U 

BNE XREF3 

LDX BOTEXT,U 

STX XREFX,U 

LBSR CRLF 

BRA XREF1 

XREF3 CPX TOPEXT 

BEQ XREF4 

LBSR PRLAB 

LBSR OUTSP 

LDX XREFX,U 

LEAX 4,X 

LBSR OUTADR 

STX XREFX,U 

LBSR 0UTSP2 

DEC CNT,U 

BNE XREF2 

BRA XREF1 

XREF4 LBRA CRLF 

* 

* INPUT LINE AND PARSE 
* 



STEP /BREAK 



PRINT XREF LABEL NAME 



XREF TOP OF THREAD 



PRINT 2 SPACES 



ITYPE1 



LBSR 

BCS 

LDX 

LBSR 

BNE 

TSTB 

RTS 



LINEIN 
BRAK 
#INBUF 
GNUM 
I ERR 



***$ 



D2 



09C0 



FC5B 065C 



FCOA 060E 



ITRTS 
# 

I ERR STRG 

BRA 
* 

* BREAK KEY ON INPUT 
* 
BRAK STRG 

LBRA 
•* 

* GET AN AREA PARAMETER 
* 



(ENTER 
ITYPE1 



(»* 
START 1 



A NUMBER OR RETURN), RET 



BREAK **>,RET 



EB 

02DD 

80 

CI 

CB 39 

3F 

51 

80 

20 

08 



09EE 
A 
A 

09CE 
A 
A 

0A65 
A 
A 

0A22 



ITYPE2 LBSR 
BCS 
LDX 
LDA 
BEQ 
STA 
CMPA 
BEQ 
LDA 
CMPA 
BNE 



LINEIN 

BRAK 

*INBUF 

,X+ 

ITRTS 

TYPE,U 

#'? 

TYP3Y 

,X+ 

#*20 

IERR2 



X %%%% 
WAS THERE 

GET FIRST 
NOTHING ON 



A BREAK? 

CHAR 
LINE 



ASKING FOR TABLE DUMP? 

SECOND LETTER 
MUST BE SPACE 



PAGE 009 



0: GEH80.TXT THE MICRO 
GEN80: SOURCE GEN V 1.3 



WORKS 



00489A 

00490A 

00491 A 

00492A 

00493A 

00494 

00495A 

00496A 

00497 

00498A 

00499A 

00500A 

00501 A 

00502A 

00503A 

00504A 

00505A 

00506A 

00507A 

00508 

00509A 

005 10A 

0051 1A 

00512 

00513 

00514 

005 15A 

005 16A 

005 17A 

005 ISA 

005 19A 

00520A 

00521 A 

00522A 

00523A 

00524A 

00525A 

00526A 

00527A 

00528A 

00529A 

00530A 

00531 A 

00532A 

00533A 

00534A 

00535A 

00536A 

00537A 

00538A 

00539A 

00540A 

00541 A 

00542A 

00543 

00544A 

00545A 



0A1A BD 

0A1C 26 

0A1E 5D 

0A1F 27 

0A21 39 

0A22 
0A3D 20 

0A3F 17 
0A42 25 
0A44 B6 
0A47 27 
0A49 81 
0A4B 27 
0A4D 81 
0A4F 27 
0A51 
0A62 20 

0A64 4F 
0A65 4D 
0A66 39 



0A67 CC 
0A6A 34 
0A6C A6 
0A6E 81 
0A70 27 
0A72 A6 
0A74 81 
0A76 25 
0A78 81 
0A7A 23 
0A7C 81 
0A7E 25 
0A80 81 
0A82 22 
0A84 80 
0A86 80 
0A88 68 
0A8A 69 
0A8C 68 
0A8E 69 
0A90 68 
0A92 69 
0A94 68 
0A96 69 
0A9B AB 

0A9A A7 
0A9C 5C 
0A9D 20 

0A9F 4D 
OAAO 35 



4B 
04 

01 



C2 

FECC 

AA 

02DD 

ID 

59 

18 

4E 

13 

DB 



0A67 
0A22 

0A22 



0A01 



* 
IERR2 



060E ITYPE3 
09EE 

A 
0A66 

A 
0A65 

A 
0A64 



0A3F 



0000 

06 

84 

2E 

30 

80 

30 

27 

39 

OA 

41 

IF 

46 

IB 

07 

30 

61 

E4 

61 

E4 

61 

E4 

61 

E4 

61 

61 



A 
A 
A 
A 

0AA2 
A 
A 

0A9F 
A 

0A86 
A 

0A9F 
A 

0A9F 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 
A 



# 

TYP3N 

TYP3Y 

TYP3R 

* 

* HEX 
* 

GNUM 



GNLJM2 



GNUM4 



BSR 

BNE 

TSTB 

BEQ 

RTS 

STRG 
BRA 

LBSR 

BCS 

LDA 

BEQ 

CMPA 

BEQ 

CMPA 

BEQ 

STRG 

BRA 

CLRA 
TSTA 
RTS 



AND DECIMAL INPUT 



GNUM 
IERR2 

IERR2 



(ENTER 
ITYPE2 

LINEIN 

BRAK 

INBUF 

TYP3R 

#'Y 

TYP3Y 

#'N 

TYP3N 

(ENTER 

ITYPE3 



GET A NUMBER 



IN FORM: X **»*), RET 



YES/NO 



DEFAULT? 
WAS IT YES? 

OR "NO"? 

Y OR N),RET 
TRY AGAIN 



D3 0A72 



90 



GNUM3 



LDD 

PSHS 

LDA 

CMPA 

BEQ 

LDA 

CMPA 

ELO 

CMPA 

BLS 

CMPA 

ELO 

CMPA 

BHI 

SUBA 

SUBA 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

ASL 

ROL 

ADDA 

STA 

INCB 

BRA 

TSTA 
PULS 



#0 

D 

,X 

#' . 

GDEC 

,X+ 

#'0 

GNUM3 

#'9 

GNUM4 

#' A 

GNUM3 

#'F 

GNUM3 

#7 

#'0 

1,S 

0,S 

1,S 

0,S 

1,S 

0,S 

1,S 

0,S 

1,S 

1,S 

GNUM2 



X,PC 



INITIALIZE TOTAL 
GET A CHARACTER 
DECIMAL INPUT? 

GET A CHARACTER 



MAKE NUMERIC 
SHIFT INTO TOTAL 



COUNT CHARACTERS 



LAST CHAR A RETURN? 
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GEN80: SOURCE GEN V 1=3 



00546 










* 










00547 










# 


DECIMAL 






00548 










# 










00549A 


0AA2 


30 


01 


A 


GDEC 


LEAX 


1,X 


OVER THE " . " 


00550A 


0AA4 


A6 


80 


A 


GDEC2 


LDA 


,x+ 




00551 A 


0AA6 


81 


30 


A 






CMPA 


#'0 




00552A 


0AA8 


25 


27 


0AD1 






BLO 


GDEC3 




00553A 


OAAA 


81 


39 


A 






CMPA 


#'9 




00554A 


OAAC 


22 


23 


0AD1 






BHI 


GDEC3 




00555A 


0AAE 


80 


30 


A 






SUBA 


#'0 




00556A 


0AE0 


34 


06 


A 






PSHS 


A,B 




00557A 


0AE2 


C6 


OA 


A 






LDB 


#10 


MULTIPLY LSE BY 10 


00558A 


0AB4 


A6 


63 


A 






LDA 


2+1, S 




00559A 


0AB6 


3D 










MUL 






00560A 


0AB7 


E7 


63 


A 






STB 


2+1, S 




00561 A 


0AE9 


34 


02 


A 






PSHS 


A 




00562A 


0ABB 


C6 


OA 


A 






LDB 


#10 


MULTIPLY MSE BY 10 


00563A 


OABD 


A6 


63 


A 






LDA 


1+2+0, S 




00564A 


OABF 


3D 










MUL 






00565A 


OACO 


EB 


EO 


A 






ADDB 


,s+ 




00566A 


0AC2 


E7 


62 


A 






STB 


2+0, S 




00567A 


0AC4 


35 


06 


A 






PULS 


A,B 




00568A 


0AC6 


AB 


61 


A 






ADDA 


i,s 


ADD ON NEW DIGIT 


00569A 


0AC8 


A7 


61 


A 






STA 


i,s 




00570A 


OACA 


24 


02 


OACE 






BCC 


GDEC4 




00571A 


OACC 


6C 


E4 


A 






INC 


0,S 


ADD CARRY 


00572A 


OACE 


5C 






GDEC4 


INCB 






00573A 


OACF 


20 


D3 


0AA4 






BRA 


GDEC2 




00574 










# 










00575A 


0AD1 


4D 






GDEC3 


TSTA 






00576A 


0AD2 


35 


90 


A 






PULS 


X,PC 




00577 










# 










00578 










* 


SET 


OUTPUT 


MASK 




00579 










# 










00580A 


0AD4 


34 


16 


A 


SMASK 


PSHS 


D,X 


SAVE REGISTERS 


005B1A 


0AD6 


AE 


64 


A 






LDX 


4,S 


RET ADR 


00582A 


0AD8 


A6 


80 


A 






LDA 


,x+ 


GET PARAMETER 


00583A 


OADA 


6F 


64 


A 






CLR 


4,S 


USE RET ADR AS TEMP 


00584A 


OADC 


6F 


65 


A 






CLR 


5,S 




005B5A 


OADE 


1A 


01 








SEC 




FOR FIRST ROTATE 


00586A 


OAEO 


69 


65 


A 


SMA2 


ROL 


5,S 


MOVE THE BIT OVER 


00587A 


0AE2 


69 


64 


A 






ROL 


4,S 




00588A 


0AE4 


4A 










DECA 




COUNT DOWN PARAMETE! 


00589A 


0AE5 


2A 


F9 


OAEO 






BPL 


SMA2 




00590A 


0AE7 


EC 


64 


A 






LDD 


4,S 


GET RESULT 


00591 A 


0AE9 


AF 


64 


A 






STX 


4,S 


RESTORE NEW RET ADR 


00592A 


OAEB 


ED 


C8 


2F A 






STD 


MASKF,U 


SAVE THE NEW MASK 


00593A 


OAEE 


35 


96 


A 






PULS 


D,X,PC 


RESTORE & RETURN 


00594 










* 










00595 










# 


PAUSE / BREAK CHECK 




00596 










* 










00597A 


OAFO 


A6 


C8 


15 A 


PASCHK 


LDA 


SSTEP,U 


ARE WE SINGLE STEP? 


00598A 


0AF3 


26 


11 


0B06 






BNE 


PSTEP 




00599A 


0AF5 


17 


FB19 0611 






LBSR 


POLCAT 


CHECK KEYBOARD 


00600A 


0AF8 


27 


07 


0E01 






BEG. 


RTS3 




00601 A 


OAFA 


81 


53 


A 






CMPA 


#'S 


SLOW DOWN? 


00602A 


OAFC 


26 


04 


0EO2 






BNE 


PSTEP2 
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WORKS 



00603A 


0AFE 


63 


C8 


2A A 


COM 


SLOW,U 


TOGGLE SLOW FLAG 


00604A 


0B01 


39 






RTS3 


RTS 






00605A 


0B02 


Bl 


20 




A PSTEP2 


CMPA 


#*20 


SPACE (STEP) 


00606A 


0B04 


26 


4E 




0B54 


BNE 


PBE2 




00607A 


0B06 


6F 


C8 


15 A PSTEP 


CLR 


SSTEP,U 


ELSE NOT SINGLE STEP 


00608A 


0B09 


6D 


C8 


11 A 


TST 


PASS,U 




00609A 


0B0C 


26 


13 




0B21 


ENE 


PSTEP3 


IF PASS 2 


006 10A 


OBOE 










STRG 


(PASS 


1 STOPPED), RET 


0061 1A 


0B21 


17 


FAED 


0611 PSTEP3 


LBSR 


POLCAT 


GET ANOTHER KEY 


006 12A 


0B24 


27 


FB 




0B21 


BEG. 


PSTEP3 


(WAIT FOR IT) 


006 13A 


0B26 


81 


03 




A 


CMPA 


#3 


BREAK 


006 14A 


0B28 


1027 


' 0088 


0BB4 


LBEQ 


BREAK 




006 15A 


0B2C 


81 


13 




A 


CMPA 


#«13 


SHIFT-S 


006 16A 


0B2E 


27 


09 




0B39 


BEQ 


PBE 




006 17A 


0B30 


81 


20 




A 


CMPA 


#*20 




006 18A 


0B32 


26 


3B 




0B6F 


BNE 


PAS0K2 




006 19A 


0B34 


A7 


C8 


15 A 


STA 


SSTEP,U 


START SINGLE-STEP 


00620A 


0B37 


20 


48 




0B81 


BRA 


PASOK 




00621 










* 








00622A 


0B39 


A6 


C8 


11 A PBE 


LDA 


PASS,U 




00623A 


0B3C 


26 


11 




0B4F 


BNE 


PBE5 




00624A 


0B3E 










STRG 


(PASS 


1 PAUSE), RET 


00625A 


0B4F 


17 


FABF 


0611 PBE5 


LBSR 


POLCAT 




00626A 


0B52 


27 


FE 




0B4F 


BEQ 


PBE5 




00627A 


0B54 


81 


03 




A PBE2 


CMPA 


#3 


BREAK 


00628A 


0E56 


27 


5C 




0BB4 


BEQ 


BREAK 




00629A 


0B58 


81 


13 




A 


CMPA 


#»13 


SHIFT-G 


00630A 


0B5A 


27 


DD 




0B39 


BEQ 


PBE 




00631A 


0B5C 


80 


31 




A 


SUBA 


#' 1 


NUMBERS = MODES 


00632A 


0B5E 


27 


22 




0B82 


BEQ 


STFULL 


FULL MODE 


00633A 


0B60 


4A 








DECA 






00634A 


0B61 


27 


2A 




0B8D 


BEQ 


STSCAN 


SCAN MODE 


00635A 


0B63 


4A 








DECA 






00636A 


0B64 


27 


2F 




0B95 


BEQ 


STDEFL 


DEFAULT MODE 


00637A 


0B66 


4A 








DECA 






00638A 


0B67 


27 


31 




0B9A 


BEQ 


STREAS 


REASSEMBLY MODE 


00639A 


0B69 


4A 








DECA 






00640A 


0B6A 


27 


36 




0BA2 


BEQ 


STXREF 


XREF MODE 


00641 A 


0B6C 


4A 








DECA 






00642A 


0B6D 


27 


38 




0BA7 


BEQ 


STREFX 


REFERENCE MODE 


00643A 


0B6F 


A6 


C8 


11 A PAS0K2 


LDA 


PASS,U 




00644A 


0E72 


26 


OD 




0B81 


BNE 


PASOK 




00645A 


0B74 










STRG 


(GOING. . , 


. ) , RET 


00646A 


0B81 


39 






PASOK 


RTS 






00647 










* 








00648 










* CHANGE FORMAT MODES 




00649 










* 








00650A 


0BB2 


6F 


C8 


29 A STFULL 


CLR 


SCANMD,U 


FULL MODE 


00651 A 


0B85 


CC 


77EF 


A 


LDD 


#S77EF 




00652A 


0B88 


A7 


C8 


28 A 


STA 


FULLMD,U 




00653A 


0B8B 


20 


23 




OBBO 


BRA 


SEMODE 




00654 










# 








00655A 


0B8D 


CC 


A80D 


A STSCAN 


LDD 


#*A80D 


SCAN MODE 


00656A 


0B90 


A7 


C8 


29 A 


STA 


SCANMD,U 




00657A 


0B93 


20 


18 




OBAD 


BRA 


SSMODE 




00658 










# 








00659A 


0B95 


CC 


3015 


A STDEFL 


LDD 


#*3015 


DEFAULT MODE 
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GEN80: SOURCE GEN V 1.3 



00660A 

00661 

00662A 

00663A 

00664A 

00665 

00666A 

00667A 

00668 

00669A 

00670A 

00671 A 

00672A 

00673A 

00674 

00675 

00676 

00677A 

00678A 

00679A 

00680A 

00681 

006B2A 

00683 

00684A 

00685A 

00686A 

00687A 

00688A 

00689 

00690A 

00691 A 

00692 

00693 

00694 

00695 

00696A 

00697A 

00698A 

00699A 

00700A 

00701 A 

00702A 

00703A 

00704A 

00705A 

00706A 

00707A 

0070BA 

00709A 

007 10A 

0071 1A 

00712A" 

007 13A 

00714 

Art - ? 1 ^ 

00716 



0B98 20 

0B9A CC 
0E9D A7 
0BA0 20 

0BA2 CC 
0EA5 20 

0BA7 CC 
0BAA 6F 
0BAD 6F 
0BB0 ED 
0BE3 39 



0BB4 A6 
0BB7 26 
0BB9 
0BD7 16 

0BDA 32 

0BDC 
OBEF 17 
0BF2 26 
0BF4 
0C08 16 

OCOB AF 
OCOD 16 



0C10 17 
0C13 AE 
0C15 AC 
0C17 22 
0C19 EC 
0C1B A3 
0C1D 22 
0C1F 6F 
0C22 A6 
0C24 84 
0C26 A7 
0C29 81 
0C2B 27 
0C2D EC 
0C2F A3 
0C31 26 
0C33 8D 
0C35 20 



10 OBAA BRA 

# 
3000 A BTREAS LDD 

C8 29 A STA 

OE OBAD BRA 

* 
3041 A STXREF LDD 

03 OEAA BRA 

# 
3060 A STREFX LDD 

CB 29 A SCMODE CLR 
C8 28 A SSMODE CLR 
C8 25 A SEMODE STD 

RTS 

# 

* BREAK KEY 

* 
C8 11 A BREAK LDA 
21 OBDA BNE 

STRG 
FAB2 065C LBRA 

* 
64 A P2B LEAS 

* 

RESTA STRG 
FDCE 09C0 LBSR 

17 OCOB BNE 

STRG 
FA51 065C LBRA 

* 
4F A P2B2 STX 

FD40 0950 LBRA 



SCMODE 

#$3000 REASSEMBLY 

SCANMD,U 

SSMODE 



- NO DATA COLS 



#*3041 
SCMODE 



XREF MODE 



#$3060 REFERENCE MODE 

SCANMD,U 

FULLMD,U 

CURMSK,U 



WHILE PRINTING 



PASS,U 

P2B 

<*** BREAK IN PASS ONE ***)„RET 

START 1 



4,S 



RET FROM PASCHK & DOPASS 



(RESTART WHERE? ) 

ITYPE1 

P2B2 

<*** RESTART ***),RET 

START 1 

REALPCU 
D02 



FEDD OAFO 



44 

42 

47 

02 

4F 

14 

C8 14 

84 

7F 

C8 3B 

45 

33 

4F 

02 

04 

31 

D9 



A 

A 

0C60 

A 

A 

0C33 

A 

A 

A 

A 

A 

0C60 

A 

A 

0C37 

0C66 

0C10 



* CONTROL 
# 

DOPASS LBSR 
LDX 
CMPX 
BHI 
LDD 
SUBD 
BHI 
CLR 
LDA 
ANDA 
STA 
CMPA 
BEQ 
LDD 
SUBD 
BNE 

D0PAS2 BSR 
BRA 



LOOP TO DISASSEMBLE LINE 



PASCHK 

CURLAB,U 

LASLAB,U 

RTS2 

2,X 

REALPCU 

D0PAS2 

TFLAG,U 

X 

#*7F 

DAREA,U 

#'E 

RTS2 

REALPC,U 

2, X 

D0PAS5 

DOLINE 

DOPASS 



PAUSE/BREAK TEST 
CURRENT LABEL 
END OF TABLE? 
LEAVE IF SO 
ADDRESS OF LABEL 
ARE WE THERE? 

IN CASE A "T" AREA 
GET TYPE 
MASK XREF EIT 
NEW AREA TYPE 
TYPE "END"? 



ARE WE PAST IT? 

DISASSEMBLE THE LINE 
AND LOOP 
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WORKS 



007 17A 

007 ISA 

007 19A 

00720A 

00721A 

00722 

00723 

00724 

00725A 

00726A 

00727A 

00728A 

00729A 

00730A 

00731A 

00732A 

00733A 

00734A 

00735A 

00736A 

00737A 

00738A 

00739 

00740A 

00741 A 

00742 

00743 

00744 

00745A 

00746A 

00747A 

0074BA 

00749A 

00750A 

00751A 

00752A 

00753A 

00754A 

00755A 

00756A 

00757A 

0075BA 

00759A 

00760 

00761 

00762 

00763A 

00764A 

00765A 

00766A 

00767A 

0076BA 

00769 

00770 

00771 

00772A 

00773A 



0C37 1083 
0C3B 25 
0C3D 30 
0C3F AF 
0C41 20 



0C43 6D 
0C46 26 
0C48 EC 
0C4A 34 
0C4C EC 
0C4E ED 
0C50 86 
0C52 A7 
0C55 8D 
0C57 35 
0C59 ED 
0C5B 6F 
0C5E 20 
0C60 39 

0C61 17 
0C64 20 



0C66 
0C6B 
0C6B 
0C6D 
0C70 
0C72 
0C76 
0C78 
0C7A 
0C7C 
0C7E 
OCBO 
0C82 
0CB4 
0C86 



EC 

E3 

ED 

A6 

81 

1027 

81 

26 

AE 

A6 

81 

25 

81 

24 

16 



0C89 17 
OCBC 17 
0C8F 17 
0C92 8D 
0C94 17 
0C97 16 



OC9A EC 
0C9D 85 



0005 A 

06 0C43 
06 A 
44 A 
CD 0C10 



D0PAS5 



C8 29 A 
19 0C61 



4F 

06 

02 

4F 

01 

C8 2E 

OF 0C66 

06 A 

4F A 

C8 2E A 

BO 0C10 



03C6 102A 
AA 0C10 



4F 

C8 12 
4D 

C8 38 
56 



A 
A 
A 
A 
A 



00A0 0D16 



53 
OF 
4D 
84 
20 
07 
7F 
03 



A 

0C89 

A 

A 

A 

0CB9 

A 

0C89 



015E 0DE7 



02D5 0F61 
0121 ODBO 
03F3 1085 
4B OCDF 
OOBA 0D51 
01A1 0E3B 



CMPD 

BLO 

LEAX 

STX 

BRA 



#5 

D0PAS7 

6,X 

CURLAB,U 

DOPASS 



FAR PAST IT? 

MOVE TO NEXT LABEL 
NEW CURRENT LABEL 
AND FORGET IT 



* GONE PAST A LABEL - PRINT EXTRA LINE 
D0PAS7 



TST 

BNE 

LDD 

PSHS 

LDD 

STD 

LDA 

STA 

BSR 

PULS 

STD 

CLR 

BRA 
RTS2 RTS 
* 
D0PAS1 LBSR 

BRA 
* 

* DISASSEMBLE 
* 

DOLINE LDD 
ADDD 
STD 
LDA 
CMPA 
LBEQ 
CMPA 
BNE 
LDX 
LDA 
CMPA 
BLO 
CMPA 
BHS 
LBRA 



U 



SCANMD 

D0PAS1 

REALPCU 

D 

2 X 

REALPCU 

#1 

STARS, U 

DOLINE 

D 

REALPCU 

STARS, U 

DOPASS 



EQUS 
DOPASS 



DON'T GO BACK IN SCAN MODE 

SAVE PC 

MOVE PC BACK 

FLAG THE LINE 
AND DO IT 
RESTORE PC 

CLEAR FLAG 
AND LOOP 



PRINT "EQU *-n" 
LOOP FOR NEXT LINE 



AS RMB, STRING, OR DATA /CODE 



REALPCU 

OFFSET, U 

PRCU 

DAREA,U 

#'V 

RMB 

#'S 

D0PAS3 

PRCU 

0,X 

#*20 

D0PAS3 

#*7F 

DOPASS 

FCC 



GET PC 

FORM ACTUAL ADDRESS 

SAVE IT 

CHECK FOR RMB AREA 

IS IT "VAR"S? 

IF SO, PRINT "RMB" 

IS IT A STRING 



GET THE CHARACTER 
IT IT TEXT? 
DO FCB IF NOT 
OR IF TOO BIG 

IF TEXT, DO FCC 



* 

* NORMAL INSTRUCTION OR DATA 
* 

D0PAS3 



LBSR 

LBSR 

LBSR 

BSR 

LBSR 

LBRA 



LOOKOP 

GENOPN 

PRDATC 

LABEL 

PRINTL 

BUMPPC 



FIND TYPE OF OPERATION 

BUILD OPERAND OUTPUT 

PRINT DATA ROW 

PRINT LABEL 

PRINT SOURCE OF LINE 

UPDATE PC AND RETURN 



EXTERNAL LIST 



C8 25 
10 



A 
A 



* 
* 

EXTERN LDD 
BITA 



CURMSK,U 
#tlO 



BIT 12 = LABEL 
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WORKS 



00774A 

00775A 

00776A 

00777A 

00778A 

00779A 

007B0A 

00781A 

007B2A 

00783A 

007B4A 

00785A 

00786A 

00787A 

00788A 

00789A 

00790A 

00791 A 

00792A 

00793A 

00794A 

00795A 

00796A 

00797A 

00798 

00799 

00800 

00801 A 

00B02A 

00803A 

00B04A 

00803A 

00806A 

00807A 

00808A 

00809A 

008 10A 

0081 1A 

008 12A 

008 13A 

008 14A 

008 ISA 

00816 

00817 

00818 

008 19A 

00820A 

00821 A 

00B22A 

00B23A 

00824A 

00825 

00826 

00827 

00828 

00B29A 

00830A 



0C9F 27 
0CA1 AE 
0CA3 AF 
0CA6 17 
0CA9 AE 
OCAC AC 
OCAE 27 
OCBO AE 
0CB2 AF 
0CB4 17 
0CB7 AE 
OCBA 
OCBE 17 
0CC1 17 
0CC4 
OCCB 
OCCC AE 
OCCF 30 
0CD1 17 
0CD4 30 
0CD6 AF 
0CD9 17 
OCDC 20 
OCDE 39 



OCDF AE 
0CE1 AE 
0CE3 AC 
0CE5 22 
0CE7 
OCEB AE 
OCED 17 
OCFO 17 
0CF3 
0CF7 17 
OCFA 
OCFB AE 
OCFD 30 
OCFF AF 
0D01 39 



0D02 17 
0D05 
0D09 17 
ODOC 17 
ODOF 
0D13 16 



0D16 17 
0D19 8D 



3D OCDE 
46 A 
CB 3A A 
FE47 OAFO 
C8 3A A 
48 A 
2E OCDE 
02 A 
4F A 
03C5 107C 
C8 3A A 

0259 0F1A 
0518 11DC 
20 A 
00 A 
CB 3A A 
02 A 
04BB 118F 
02 A 
C8 3A A 
04FC UD8 
C8 0CA6 



44 
02 
4F 
IB 



A 

A 

A 

0D02 



44 A 
022A 0F1A 
04A0 1193 

04D6 11 DO 
2D A 
44 A 
06 A 
44 A 



BEQ 
LDX 
STX 

EX3 LBSR 
LDX 
CPX 
BEQ 
LDX 
STX 
LBSR 
LDX 
SETMSK 
LBSR 
LBSR 
FCC 
FCB 
LDX 
LEAX 
LBSR 
LEAX 
STX 
LBSR 
BRA 

EX2 RTS 

* 

* PRINT LABEL 

LABEL LDX 
LDX 
CPX 
BHI 

SETMSK 
LDX 
LBSR 
LBSR 
SETMSK 
LBSR 
FCC 
LDX 
LEAX 
STX 
RTS 



EX2 

B0TEXT,U 

XREFX,U 

PASCHK 

XREFX,U 

TOFEXT,U 

EX2 

2,X 

REALPCU 

DATCOL 

XREFX,U 

13 

PRLAB 

PDATAI 

/ EQU * 



XREFX,U 

2,X 

OUTADR 

2,X 

XREFX,U 

CRLF 

EX3 



FORGET IT IF NO LABELS 



CHECK STEP & BREAK 



DONE? 



PRINT DATA COLUMNS 



PRINT EXT SYMBOL 



/ 



PRINT EXTERNAL ADDRESS 



CURLAB,U 

2,X 

REALPCU 

LABEL2 

12 

CURLAB,U 

PRLAB 

OUTSP 

11 

OUTCHR 
ii _ H 

CURLAB,U 

6,X 

CURLAB,U 



CURRENT LABEL 
ADDRESS OF LABEL 
ARE WE THERE? 



CURRENT LABEL 
PRINT LABEL 
PRINT SPACE 



PRINT DASH IF NOT LABEL MODE 
BUMP TO NEXT LABEL 



* 



DON'T PRINT LABEL 



04E5 11EA LABEL2 LBSR PASS2C 

SETMSK 12 
LBSR 0UTSP5 
LBSR OUTSP 
SETMSK 11 
LBRA OUTSP 



047B 1187 
0484 1193 



047D 1193 



ONLY ON PASS 2 

SPACE OVER LABEL FIELD 

SPACE INSTEAD OF DASH 



0363 
C4 



107C 
OCDF 



* 

# PRINT RME'S 
* 

RMB LBSR DATCOL 
BSR LABEL 



PRINT DATA COLUMNS 
PRINT THE LABEL 
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WORKS 



00831 A 

00832A 

00833A 

00834A 

00835A 

00836A 

00837A 

00838A 

00839A 

00840A 

00841 A 

00842A 

00843A 

00844A 

00845A 

00846A 

00847A 

00S4SA 

00849A 

00850A 

00851 A 

00852A 

00853 

00854 

00855 

00856A 

00857A 

00858A 

00859A 

00860A 

00861 A 

00862A 

00863A 

00864A 

00865A 

00866A 

00867A 

00868A 

00869A 

00870A 

00871 A 

00872A 

00873A 

00874A 

00875A 

00876A 

00877 

00878 

00879 

00880A 

00881 A 

00882A 

00883A 

00884A 

00885A 

00886A 

00887A 



0D1B 
0D1F 
0D22 
0D27 
0D28 
0D2A 
0D2C 
0D2E 
0D30 
0D32 
0D36 
0D38 
0D3A 
0D3C 
0D3F 
0D41 
0D43 
0D46 
0D47 
0D49 
0D4C 
0D4E 



17 



AE 

EC 

IF 

A3 

AF 

1083 

22 

IF 

8B 

17 

20 

34 

17 

IF 
17 
32 
16 



0D51 17 
0D54 8D 
0D56 6F 
0D59 6D 
0D5C 26 
0D5E 6F 
0D61 30 
0D64 17 
0D67 
0D6B 6D 
0D6E 27 
0D70 AE 
0D72 A6 
0D74 17 
0D77 A6 
0D7A 4A 
0D7B 27 
0D7D A6 
0D7F 17 
0D82 
0D86 16 



0D89 
0D8D E6 
0D90 86 
0D92 3D 
0D93 30 
0D97 30 
0D99 C6 
0D9B A6 



04BA 

52 

00 

44 

02 

01 

4F 

4F 

0009 

09 

98 

30 

0456 

OD 

06 

048A 

24 

41 

0443 

62 

0487 



11DC 
A 
A 
A 
A 
A 
A 
A 
A 

0D41 
A 
A 

1195 

0D4E 
A 

UDO 
A 

118F 

A 

11D8 



0496 11EA 
33 0D89 
C8 52 A 
C8 2B A 
03 0D61 
CB 4B A 
C8 40 A 
047B 11E2 

CB 1C A 
12 0D82 
4B A 
80 A 
03EC 1163 
C8 1C A 



05 
80 
03E1 



0D82 

A 

1163 



044F 11D8 



C8 IE 
03 

8D 09D4 

8B 

03 

BO 



A 
A 



RMB4 



SETMSK 

LBSR 

FCC 

FCB 

LDX 

LDD 

TFR 

SUBD 

STX 

CMPD 

BHI 

TFR 

ADDA 

LBSR 

BRA 

PSHS 

LBSR 

FCC 

TSX 

LBSR 

LEAS 

LBRA 



RMB5 

* PRINT 
# 
PRINTL LBSR 

BSR 

CLR 

TST 

BNE 

CLR 
PL2 LEAX 

LBSR 

SETMSK 

TST 

BEQ 

LDX 

LDA 

LBSR 

LDA 

DECA 

BEQ 

LDA 

LBSR 
PL4 SETMSK 

LBRA 
# 

* PRINT MNEMONIC 
* 

PRIMNE SETMSK 

LDB 

LDA 

MUL 

LEAX 

LEAX 

LDE 
PRNTL2 LDA 



13 

PDATAI 

/RMB / 



CURLAB,U 

2,X 

D,X 

REALPCU 

REALPCU 

#9 

RMB4 

E,A 

#*30 

OUTEE 

RMB5 

D 

OUTCHR 

'*' 

OUTADR 

2,S 

CRLF 



PRINT "RMB" 



GET ADDRESS OF NEXT LABEL 



GET BYTES 
UPDATE PC 
MORE THAN 



TO NEXT LABEL 
TO NEXT LAB 
SINGLE-DIGIT? 



SOURCE LINE 



PASS2C 

PRIMNE 

LBF+18,U 

FULLMD,U 

PL2 

LBF+11,U 

LBF,U 

PDATA 

15 

ALEN,U 

PL4 

PAC,U 

,X+ 

OUTASC 

ALEN,U 

PL4 

,X+ 

OUTASC 
13 
CRLF 



MAKE NUMBER ASCII 
PRINT IT 



PRINT % FOR HEX 



PRINT AS 4-DIGIT HEX 



NEW LINE AND LEAVE 



ONLY ON PASS 2 
PRINT MNEMONIC 
FORCE END-OF-STRING 
ROOM FOR WHOLE LINE? 

END-OF-STR AFTER 11 CHARS 

PRINT OPERAND FIELD 



PRINT ASCII EQUIVALENT 



GET NEXT BYTE 
PRINT ASCII 

NEW LINE AND LEAVE 



13 

MNENO,U MNEMONIC NUMBER 

#3 THREE BYTES PER ENTRY 

FORM INDEX 
MNETAB,PCR 

D,X FORM ABSOLUTE POINTER 
#3 LENGTH OF MNEMONIC 
,X+ GET A CHARACTER 
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GENBO: SOURCE GEN V 1.3 



00888A 


0D9D 17 


03F5 1195 




LBSR 


OUTEE 


PRINT IT 


00B89A 


0DA0 5A 






DECB 






00890A 


0DA1 26 


F8 0D9B 




BNE 


PRNTL2 


LOOP FOR THREE 


00891 A 


0DA3 A6 


C8 ID A 




LDA 


EXTRA, U 


4th CHARACTER? 


00892A 


0DA6 26 


02 ODAA 




BNE 


PRNTL3 




00893A 


0DA8 86 


20 A 




LDA 


#*20 


ELSE A SPACE 


00894A 


0DAA 17 


03E8 1195 


PRNTL3 


LBSR 


OUTEE 


PRINT 4th CHARACTER 


00895A 


0DAD 16 


03E3 1193 




LBRA 


OUTSP 


SPACE AFTER MNEMONIC 


00896 






* 








00897 






* GENERATE OPERAND FIELD 


00898 






* 








00899A 


ODBO 86 


20 A 


GENOPN 


LDA 


#*20 


CLEAR LINE BUFFER 


00900A 


0DB2 31 


C8 40 A 




LEAY 


LBF,U 




00901 A 


0DB5 34 


20 A 




PSHS 


Y 




00902A 


0DB7 31 


C8 54 A 




LEAY 


ENDLBF,U 




00903A 


ODBA A7 


A2 A 


GEN0P2 


STA 


,-Y 




00904A 


ODBC 10AC 


E4 A 




CMPY 


o,s 




00905A 


ODBF 26 


F9 ODBA 




BNE 


GEN0P2 




00906A 


0DC1 32 


62 A 




LEAS 


2,S 




00907A 


0DC3 A7 


CB 2B A 




STA 


SAVEIT,U 


SET NO OUTPUT 


00908A 


0DC6 A6 


C8 36 A 




LDA 


INDFLG,U 




00909A 


0DC9 27 


04 ODCF 




BEQ 


PRNTL4 




009 10A 


ODCB 17 


0402 11 DO 




LBSR 


OUTCHR 


PRINT INDIRECT ERKTS 


0091 1A 


ODCE 


5B A 




FCB 


'C 




009 12A 


ODCF AE 


C8 19 A 


PRNTL4 


LDX 


M0DADR,U 




009 13A 


0DD2 CC 


0000 A 




LDD 


#0 




009 14A 


ODDS ED 


C8 3C A 




STD 


REFX,U 




009 15A 


0DD8 AD 


84 A 




JSR 


0,X 


DO THE MODE ROUTINES 


009 16A 


ODDA A6 


C8 36 A 




LDA 


INDFLG,U 




009 17A 


ODDD 27 


04 0DE3 




BEQ 


PRNTL5 




009 18A 


ODDF 17 


03EE 11 DO 




LBSR 


OUTCHR 


END BRACKET INDIRECT 


009 19A 


0DE2 


5D A 




FCB 


' 3 




00920A 


0DE3 6F 


C8 2B A 


PRNTL5 


CLR 


SAVEIT,U 


RESTORE PRINTING 


00921 A 


0DE6 39 






RTS 






00922 






* 








00923 






# PRINT TEXT 


STRING 




00924 






# 








00925A 


0DE7 17 


0292 107C 


FCC 


LBSR 


DATCOL 


PRINT DATA COLUMNS 


00926A 


ODEA 17 


FEF2 OCDF 




LBSR 


LABEL 


PRINT LABEL 


00927A 


ODED 






SETMSK 


13 




00928A 


0DF1 17 


OSES 11DC 




LBSR 


PDATAI 


PRINT "FCC" 


00929A 


0DF4 


46 A 




FCC 


/FCC / 




00930A 


0DF9 


00 A 




FCB 







00931 A 


ODFA AE 


44 A 




LDX 


CURLAB,U 


NEXT LABEL 


00932A 


ODFC EC 


02 A 




LDD 


2,X 


DON'T GO PAST THIS ADR 


00933A 


ODFE A3 


4F A 




SUBD 


REALPC,U 


MAX STRING SIZE 


00934A 


OEOO 1083 


0008 A 




CMPD 


#8 


DON'T GO OVER B 


00935A 


0E04 23 


02 0E08 




BLS 


FCC2 




00936A 


0E06 C6 


08 A 




LDE 


#8 




00937A 


0E08 6F 


CB IB A 


FCC2 


CLR 


LENGTH, U 




00938A 


OEOB AE 


4D A 




LDX 


PRCU 


ACTUAL DATA ADDRESS 


00939A 


OEOD A6 


80 A 


FCC3 


LDA 


,x+ 


GET A BYTE 


00940A 


OEOF 81 


20 A 




CMPA 


«$20 


IS IT TEXT? 


00941 A 


OEM 25 


OA 0E1D 




BLO 


FCC4 




00942A 


0E13 81 


7F A 




CMPA 


#*7F 




00943A 


0E15 24 


06 OfclD 




BHS 


FCC4 




00944A 


0E17 6C 


C8 IE A 




INC 


LENGTH, U 


ONE MORE IN LENGTH 
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! GENBO . TXT TH E 
GEN80! SOURCE GEM V ] 



MICRO 

3 



WORKS 



00945A 

00946A 

00947A 

00948A 

00949A 

00950A 

00951 A 

00932A 

00953A 

00954A 

00955A 

00956A 

00957A 

00958A 

00959A 

00960 

00961 

00962 

00963A 

00964A 

00965A 

00966A 

00967A 

00968A 

00969A 

00970 

00971 

00972 

00973A 

00974A 

00975A 

00976A 

00977A 

00978A 

00979 

00980 

00981 

00982A 

00983A 

00984A 

00985A 

00986A 

00987A 

00988A 

00989A 

00990A 

00991 A 

00992A 

00993A 

00994A 

00995A 

00996A 

00997A 

00998A 

00999A 

01000A 

01001A 



0E1A 5A 
0E1B 26 
0E1D A6 
OE20 8B 
0E22 17 
0E25 17 
0E2B 
0E29 AE 
0E2B E6 
0E2E A6 
0E30 17 
0E33 5A 
0E34 26 
0E36 8D 
0E38 16 



0E3B E6 
0E3E 4F 
0E3F E3 
0E41 24 
0E43 CC 
0E46 ED 
0E48 39 



0E49 AE 
0E4B 10A3 
0E4E 25 
0E50 AE 
0E52 10A3 
0E55 22 



FO OEOD 
C8 IB A 
30 A 
0370 1195 
03A8 11 DO 
2C A 
4D A 
CB IB A 
80 A 
0362 1195 

F8 0E2E 
03 0E3B 
039D UDB 



FCC4 



CB IB 



A 



4F A 
03 0E46 
FFFF A 
4F A 



C4 
02 
78 
42 
1C 
71 



A 
A 

0EC8 
A 
A 

0EC8 



0E57 
0E59 
0E5B 
0E5D 
0E5F 
0E61 
0E64 
0E66 
0E68 
0E6A 
0E6D 
0E6F 
0E72 
0E74 
0E76 
0E78 
0E7A 
0E7C 
0E7E 
0E80 



AE 

34 

AC 

27 

30 

10A3 

25 

27 

30 

AF 

AE 

AC 

27 

EC 

ED 

EC 

ED 

EC 

ED 

20 



42 

06 

C4 

23 

1A 

02 

F5 

71 

06 

CB 34 

42 



A 

A 

A 

0E82 

A 

A 

0E5B 

0ED9 

A 

A 

A 



CB 34 A 
OE 0E82 



83 
06 
83 
06 
83 
06 
ED 



A 
A 

A 
A 
A 
A 
0E6F 



FCC5 



DECB 

BNE 

LDA 

ADDA 

LBSR 

LBSR 

FCC 

LDX 

LDB 

LDA 

LBSR 

DECB 

BNE 

BSR 

LBRA 



COUNT DOHN OUR 8 
FCC3 
LENGTH, U LENGTH OF FINAL STRING 



#'0 
OUTEE 
OUTCHR 
» i 

PRC,U 
LENGTH, U 
,X+ 

OUTEE 

FCC5 

BUMPPC 

CRLF 



MAKE ASCII 
PRINT IT 
AND A COMMA 



GET A CHARACTER 
GUARANTEE PRINTABLE 
COUNT DOHN 
AND LOOP 



BUMP PC ADDRESS 



* 
* 
* 
BUMPPC LDB 

CLRA 

ADDD 

BCC 

LDD 
BUMPP2 STD 

RTS 
* 

* LOOK UP AND 
* 
LOOKUP LDX 

CMPD 
BLO 
LDX 
CMPD 
BHI 
* 

* INSERT TO LABEL TABLE 



LENGTH, U LENGTH OF LAST INSTRUCTION 

REALPC,U ADD TO LAST PC 

BUMPP2 

#*FFFF HANG AT END OF MEM 

REALPCU TO FORM NEH ONE 



INSERT SYMBOL TO TABLE 

FIRLAB,U 
2 X 
LOOKX 
LASLAB,U 
2-6, X 
LOOKX 



(NOT EXT) 



LOOKLA LDX 
PSHS 

L00KL7 CPX 
BEQ 
LEAX 
CMPD 
BLO 
BEQ 
LEAX 
STX 
LDX 

L00KL5 CPX 
BEQ 
LDD 
STD 
LDD 
STD 
LDD 
STD 
BRA 



LASLAE,U START AT END OF TABLE 

D SAVE WHAT LOOKING FOR 

FIRLAB.U DONE? 

L00KL4 

-6,X MOVE TO NEXT LABEL 

2,X CHECK IT OUT 

L00KL7 NOT THERE YET? 

SETBIT FOUND IT? 

6,X OVERSHOT 

XT,U 

LASLAB,U 

XT,U 

L00KL4 

,— X 

6,X 

,~X 

6,X 

," X 

6,X 
L00KL5 



MOVE LABELS 
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WORKS 



01002A 


0E82 


EC 


42 


A 


L00KL4 


LDD 


LASLAB,U 


END OF TABLE 


01003A 


0E84 


C3 


0006 A 






ADDD 


#6 


BUMP BY ONE LABEL 


01004A 


0E87 


ED 


42 


A 






STD 


LASLAB,U 




01005A 


0E89 


A6 


1A 


A 






LDA 


-6,X 




01006A 


0E8B 


84 


7F 


A 






ANDA 


#»7F 




01007A 


0E8D 


A7 


84 


A 






STA 


o,x 




0100SA 


0E8F 


35 


06 


A 






PULS 


D 




01009 




















01010 










♦ 










01011 










# 


STORE NEW 


SYMBOL & CHECK OVERFLOW 


01012 










* 










01013A 


0E91 


ED 


02 


A 


L00KL6 


STD 


2,X 


SAVE ADDRESS 


01014A 


0E93 


6F 


04 


A 






CLR 


4,X 


NO XREF 


01015A 


0E93 


6F 


05 


A 






CLR 


5.X 




01016A 


0E97 


6F 


01 


A 






CLR 


1,X 


NO BYTE 1 


01017A 


0E99 


EC 


42 


A 






LDD 


LASLAB,U 




01018A 


0E9B 


10A3 


46 


A 






CMPD 


BOTEXT,U 




01019A 


0E9E 


24 


06 


0EA6 






BHS 


OVERR 


TABLES RAN INTO EACH 


01020A 


0EA0 


AF 


CB 


17 A 






STX 


LOOKXT,U 




01021A 


0EA3 


A6 


84 


A 






LDA 


o,x 




01022A 


0EA3 


39 










RTS 






01023A 


0EA6 








OVERR 


STRG 


(SYMBOL 


TABLE OV. N.E.R.F. > , R 


01024A 


0EC5 


16 


FB26 09EE 






LBRA 


BRAK 


GO DO A BREAK 


01023 




















01026 










* 










01027 










* 


LOOK UP EXTERNAL 




01028 










* 










01029A 


0EC8 


AE 


48 


A 


LOOKX 


LDX 


TOPEXT,U 




01030A 


0ECA 


AC 


46 


A 


L00KX2 


CPX 


BOTEXT,U 




01031A 


0ECC 


27 


16 


0EE4 






BEQ 


L00KX3 




01032A 


0ECE 


30 


1A 


A 






LEAX 


-6,X 




01 033 A 


OEDO 


10A3 


02 


A 






CMPD 


2,X 




01034A 


0ED3 


25 


F5 


OECA 






BLO 


L00KX2 




01035A 


0ED5 


22 


ID 


0EF4 






BHI 


L00KX4 




01036A 


0ED7 


34 


06 


A 






PSHS 


D 




01037A 


0ED9 


A6 


84 


A 


SETBIT 


LDA 


0,X 




01038A 


OEDB 


A7 


C8 


33 A 






STA 


ECFLAG,U 




01039A 


OEDE 


8A 


80 


A 






ORA 


**80 


BIT MEANS "SEEN BEFORE 


01040A 


OEEO 


A7 


84 


A 






STA 


0,X 




01041A 


0EE2 


35 


86 


A 






PULS 


D,PC 




01042A 


0EE4 


AE 


46 


A 


L00KX3 


LDX 


B0TEXT,U 




01043A 


0EE6 


30 


1A 


A 






LEAX 


-6,X 




01044A 


0EE8 


AF 


46 


A 






STX 


BOTEXT,U 




01045A 


OEEA 


34 


02 


A 


L00KX6 


PSHS 


A 




01046A 


OEEC 


86 


58 


A 






LDA 


#'X 


TYPE "EXTERNAL" 


01047A 


OEEE 


A7 


84 


A 






STA 


o,x 




0104BA 


OEFO 


35 


02 


A 






PULS 


A 




01049A 


0EF2 


20 


9D 


0E91 






BRA 


L00KL6 




01030 










# 










01031 










* 


MOVE EXTERNALS DOWN 




01032 










# 










01053A 


0EF4 


AF 


C8 


17 A 


L00KX4 


STX 


LOOKXT.U 




01054A 


0EF7 


AE 


46 


A 






LDX 


BOTEXT,U 




01055A 


0EF9 


30 


1A 


A 






LEAX 


-6,X 




01056A 


OEFB 


AF 


46 


A 






STX 


BOTEXT,U 




01057A 


OEFD 


34 


06 


A 






PSHS 


D 




0105BA 


OEFF 


EC 


06 


A 


L00KX5 


LDD 


6,X 


MOVE THE DATA 



PAGE 019 0-.GEN80.TXT THE MICRO WORKS 
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01059A 


0F01 


ED 


81 




A 






STD 


,X++ 






01060A 


0F03 


AC 


C8 


17 


A 






CPX 


LOOKXT. 


,U 




01061A 


0F06 


26 


F7 




OEFF 






BNE 


L00KX5 






01062A 


OFOB 


35 


06 




A 






PULS 


D 






01063A 


OFOA 


20 


DE 




OEEA 






BRA 


L00KX6 






01064 












* 












01065 












* 


REFERENCE 


SYMBOL 






01066 












* 












01067 












* 


ENTRIES - 


REFERN < 


CD 


SET) AND PRLAB (X SET) 


01068 












* 












01069A 


OFOC 


17 


FF3A 


0E49 


REFERN 


LBSR 


LOOKUP 




FIND SYMBOL 


01070A 


OFOF 


17 


02D8 


11EA 






LBSR 


PASS2C 




DON'T PRINT PASS 1 


01071A 


0F12 


EC 


04 




A 






LDD 


4,X 






01072A 


0F14 


ED 


C8 


23 


A 






STD 


LASREF. 


,u 


SAVE LAST REFERENCE 


01073A 


0F17 


AF 


C8 


3C 


A 






STX 


REFX,U 






01074A 


0F1A 


A6 


84 




A 


PRLAB 


LDA 


o,x 




GET TYPE 


01073A 


0F1C 


84 


7F 




A 






ANDA 


#$7F 




REMOVE FLAG BIT 


01076A 


0F1E 


17 


0274 


1195 






LBSR 


0UTEE 




PRINT IT 


01077A 


0F21 


30 


02 




A 






LEAX 


2,X 






01078A 


0F23 


17 


024B 


1171 






LBSR 


0UTBYT 




PRINT ADDRESS 


01079A 


0F26 


16 


0248 


1171 






LBRA 


0UTBYT 






01080 












* 












01081 












* 


CHANGE MODE TO ] 


[NDEXED MODE 1. .n 


01082 












* 












01083A 


0F29 


AE 


4B 




A 


MODEO 


LDX 


PAC,U 




GET OPCODE ADR 


010B4A 


0F2B 


A6 


01 




A 






LDA 


i,x 




POSTBYTE 


01085A 


0F2D 


84 


60 




A 






ANDA 


#*60 




REGISTER BITS 


01086A 


0F2F 


30 


BD 


0029 






LEAX 


XYUS- 1 , 


,PCR REGISTER TABLE 


01087A 


0F33 


30 


01 






M0DE01 


I NX 








01088A 


0F35 


80 


20 




A 






SUBA 


#*20 






01089A 


0F37 


2A 


FA 




0F33 






BPL 


MODEO 1 




LOOP FOR MULTIPLY 


01090A 


0F39 


A6 


84 




A 






LDA 


X 




GET THE ENTRY 


01091A 


0F3B 


A7 


CB 


37 


A 






STA 


INDREG, 


U 


SAVE IT 


01092A 


0F3E 


AE 


4B 




A 






LDX 


PAC,U 






01093A 


0F40 


A6 


01 




A 






LDA 


1,X 




GET POSTBYTE AGAIN 


01094A 


0F42 


2A 


13 




0F57 






BPL 


M0DE02 




IF PLUS, 5-BIT MODE 


01095A 


0F44 


84 


10 




A 






ANDA 


#*10 




INDIRECT BIT 


01096A 


0F46 


A7 


C8 


36 


A 






STA 


INDFLG, 


U 




01097A 


0F49 


A6 


01 




A 






LDA 


1,X 




GET IT ONCE MORE 


01098A 


0F4B 


84 


IF 




A 






ANDA 


#*1F 




MODE TYPE BITS 


01099A 


0F4D 


30 


8D 


04AC 






LEAX 


PBTAB,PCR 


0U00A 


0F51 


A6 


86 




A 






LDA 


A,X 




GET MODE NUMBER 


01101A 


0F33 


A7 


C8 


16 


A 






STA 


MODE,U 




SAVE THE NEW MODE 


01102A 


0F56 


39 












RTS 








01103A 


0F57 


86 


01 




A 


M0DE02 


LDA 


#1 






01104A 


0F59 


A7 


CB 


16 


A 






STA 


MODE,U 




5-BIT MODE = #1 


0U03A 


0F5C 


39 












RTS 








01106 












* 












01107A 


0F3D 




58 




A 


XYUS 


FCC 


/XYUS/ 






01108 
























01109 












* 












OHIO 












* 


LOOK UP OPCODE 






01111 












* 












01U2A 


0F61 


AE 


4D 




A 


LOOKOP 


LDX 


PRC,U 






01113A 


0F63 


AF 


4B 




A 






STX 


PAC,U 




SET TO NO PREBYTE 


i i 1 4A 


0F6D 


6r 


CB 


36 


A 






CLR 


INDFLG, 


U 


NO INDIRECT YET 


01115A 


0F68 


6F 


C8 


ID 


A 






CLR 


EXTRA, U 


1 


NO EXTRA LETTER YET 



PAGE 020 0sGENB0.TXT THE MICRO 
GEK80S SOURCE GEH V 1.3 



WORKS 



01U6A 


0F6B 


A6 


CB 


38 


A 




LDA 


DAREA,U 


DATA AREA? 




01117A 


0F6E 


81 


53 




A 




CMPA 


#'S 






01118A 


0F70 


27 


OF 




0F81 




BEQ 


I SAD 


TREAT STRING AS 


FCB 


01119A 


0F72 


81 


34 




A 




CMPA 


#'T 






01120A 


0F74 


26 


07 




0F7D 




BNE 


NOTAT 


NOT TABLE 




01121A 


0F76 


6D 


C8 


14 


A 




TST 


TFLAG,U 






01122A 


0F79 


27 


06 




0F81 




BEQ 


I SAD 


TREAT TABLE AS 


FCB 


01123A 


0F7B 


20 


19 




0F96 




BRA 


I SANA 


OR AS FDB 




01124 












* 










0112SA 


0F7D 


81 


44 




A 


NOTAT 


CMPA 


#'D 






01126A 


0F7F 


26 


11 




0F92 




BNE 


NODA 






01127A 


0F81 


86 


01 




A 


I SAD 


LDA 


#1 






01128A 


0F83 


A7 


CB 


14 


A 




STA 


TFLAG,U 






01129A 


0F86 


86 


18 




A 




LDA 


♦DATMOD 






01130A 


0F88 


A7 


C8 


16 


A 




STA 


M0DE,U 






01131A 


0F8B 


86 


50 




A 




LDA 


#80 


"FCE" 




01132A 


0F8D 


A7 


C8 


IE 


A 




STA 


MNEN0,U 


MNEMONIC NO. 




01133A 


0F90 


20 


40 




0FD2 




BRA 


NOTMO 






01134 












* 










01139A 


0F92 


81 


41 




A 


NODA 


CMPA 


#'A 






01136A 


0F94 


26 


OF 




0FA5 




BNE 


NOD 






01137A 


0F96 


6F 


C8 


14 


A 


I SANA 


CLR 


TFLAG,U 






01138A 


0F99 


86 


1A 




A 




LDA 


#ADDMOD 






01139A 


0F9B 


A7 


C8 


16 


A 




STA 


MODE,U 






01140A 


0F9E 


86 


55 




A 




LDA 


#85 


FDB MNEMONIC 




01141A 


0FA0 


A7 


C8 


IE 


A 




STA 


MNENO,U 






01142A 


0FA3 


20 


2D 




0FD2 




BRA 


NOTMO 






01143 












* 










01144A 


0FA3 


A6 


84 




A 


HOD 


LDA 


X 






01149A 


0FA7 


81 


10 




A 




CMPA 


#*10 


PREBYTE? 




01146A 


0FA9 


27 


5B 




1006 




BEQ 


0P10 






01147A 


0FAB 


81 


11 




A 




CMPA 


#*11 


OTHER ONE? 




0114BA 


0FAD 


26 


06 




0FB5 




BNE 


N011 






01149A 


0FAF 


30 


8D 


094E 




LEAX 


BYTEU-4 


,PCR 




01150A 


0FB3 


20 


55 




100A 




BRA 


0P1011 






011S1A 


0FB3 


C6 


03 




A 


N011 


LDB 


#3 






01192A 


0FB7 


3D 










MUL 








01153A 


0FB8 


30 


8D 


04AF 




LEAX 


BIGTAB.PCR 




01134A 


0FBC 


30 


8B 




A 




LEAX 


D,X 






0119SA 


OFBE 


A6 


84 




A 


RTAB 


LDA 


0,X 






01136A 


OFCO 


A7 


C8 


IE 


A 




STA 


MNENO,U 


MNEMONIC NO. 




0U57A 


0FC3 


A6 


02 




A 




LDA 


2,X 






01138A 


0FC3 


A7 


CB 


ID 


A 




STA 


EXTRA, U 


LETTER AT END 




01139A 


0FC8 


A6 


01 




A 




LDA 


i,x 






01160A 


OFCA 


A7 


CB 


16 


A 




STA 


MODE,U 






01161A 


OFCD 


26 


03 




0FD2 




BNE 


NOTMO 






01162A 


OFCF 


17 


FF57 


0F29 




LBSR 


MODEO 






01163A 


0FD2 


A6 


C8 


16 


A 


NOTMO 


LDA 


MODE,U 






0U64A 


0FD5 


81 


19 




A 




CMPA 


#ERMODE 






01165A 


0FD7 


26 


OF 




0FE8 




BNE 


N0TM02 






01166A 


0FD9 


C6 


50 




A 




LDB 


#B0 


FDB MNEMONIC 




01167A 


OFDB 


E7 


C8 


IE 


A 




STB 


MNENO,U 






0U68A 


OFDE 


6F 


CB 


36 


A 




CLR 


INDFLG,U 






01169A 


0FE1 


6F 


CB 


ID 


A 




CLR 


EXTRA, U 






01170A 


0FE4 


AE 


4D 




A 




LDX 


PRC,U 






01171A 


0FE6 


AF 


4B 




A 




STX 


PACU 






01172A 


0FE8 


4A 








N0TM02 


DECA 
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01173A 0FE9 C6 


03 


A 




LDB 


#3 THREE PER ENTRY 


01174A OFEB 3D 








MUL 




01175A OFEC 30 


8D 042D 




LEAX 


MODTAB,PCR 


01176A OFFO 30 


8B 


A 




LEAX 


D,X FORM ADDRESS OF ENTRY 


01177A 0FF2 A6 


02 


A 




LDA 


2,X 


01178A 0FF4 A7 


C8 1C 


A 




STA 


ALEN,U 


01179A 0FF7 AB 


4C 


A 




ADDA 


PAC+1,U 


01180A 0FF9 AO 


4E 


A 




SUBA 


PRC+1,U 


0U81A OFFB A7 


C8 IB 


A 




STA 


LENGTH, U 


01182A OFFE EC 


84 


A 




LDD 


0,X 


01183A 1000 30 


SB 


A 




LEAX 


D,X 


0U84A 1002 AF 


C8 19 


A 




STX 


M0DADR,U 


01185A 1005 39 








RTS 




01186 






* 






01187 






* FIND OPCODE AFTER PREBYTE 


01188 






* 






0U89A 1006 30 


8D 085F 


0P1O 


LEAX 


BYTE10-4,PCR 


01190A 100A AF 


C8 34 


A 


0P1011 


STX 


XT,U 


01191A 100D AE 


4D 


A 




LDX 


PRC,U 


01192A 100F 30 


01 






I NX 


MOVE PAST PREBYTE 


01193A 1011 AF 


4B 


A 




STX 


PAC,U 


01194A 1013 A6 


84 


A 




LDA 


X 


01195A 1015 AE 


C8 34 


A 




LDX 


XT,U 


0U96A 1018 30 


04 


A 


0P1012 


LEAX 


4,X MOVE TO NEXT ENTRY 


01197A 101A Al 


84 


A 




CMPA 


X IS IT? 


01198A 101C 22 


FA 


1018 




BHI 


0P1012 LOOP 


01199A 101E 25 


04 


1024 




BLO 


OPNG NOT THERE 


01200A 1020 30 


01 






I NX 


POINT TO TABLE ENTRY 


01201A 1022 20 


9A 


OFBE 




BRA 


RTAB AND GO TREAT LIKE NORMAL 


01202A 1024 30 


8D 0473 


OPNG 


LEAX 


*10*3+BIGTAB,PCR 


01203A 1028 20 


94 


OFBE 




BRA 


RTAB 


01204 






* 






01205 






* PRINT EQU 


*-n 


01206 






* 






01207A 102A AE 


44 


A 


EQUS 


LDX 


CURLAB,U 


01208A 102C EC 


4F 


A 




LDD 


REALPC/U SAVE PC ON STACK 


01209A 102E 34 


06 


A 




PSHS 


D 


01210A 1030 A3 


02 


A 




SUBD 


2,X CALCULATE DIFFERENCE 


0121 1A 1032 E7 


C8 32 


A 




STB 


DIF,U 


01212A 1035 AE 


02 


A 




LDX 


2,X 


01213A 1037 AF 


4F 


A 




STX 


REALPC,U FAKE LAST PC 


01214A 1039 8D 


41 


107C 




BSR 


DATCOL PRINT DATA COLUMNS 


01215A 103B 35 


06 


A 




PULS 


D 


01216A 103D ED 


4F 


A 




STD 


REALPCU RESTORE PC 


01217A 103F 17 


FC9D 


OCDF 




LBSR 


LABEL PRINT LABEL 


01218A 1042 








SETMSK 13 


01219A 1046 17 


0193 


11DC 




LBSR 


PDATAI 


01220A 1049 


45 


A 




FCC 


/EQU *-/ 


01221A 1050 


00 


A 




FCB 





01222A 1051 A6 


C8 32 


> A 




LDA 


DIF,U GET DIFFERENCE 


01223A 1054 8D 


03 


1059 




BSR 


OUTSM OUTPUT SMALL NUMBER 


01224A 1056 16 


017F 


11D8 




LBRA 


CRLF 


01225 






* 






01226 






* OUTPUT SMALL NUMBER 


01227 






♦ 






01228A 1059 4D 






OUTSM 


TSTA 




01229A 105A 2A 


09 


1065 




BPL 


0UTSM3 IS IT POSITIVE? 
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01230A 

01231A 

01232A 

01233A 

01234A 

0123SA 

01236A 

01237A 

01 238 A 

01239A 

01240A 

01241A 

01242A 

01243A 

01244A 

01245A 

01246 

01247 

01248 

01249 

01230 

01231A 

012S2A 

01253A 

01254A 

01235A 

01 236 A 

01257A 

01238A 

01259A 

01260A 

01261A 

01262A 

01263A 

01264 

01265 

01266 

01267 

01268A 

01269A 

01270A 

01271A 

01272A 

01273A 

01274A 

01275A 

01276 

01277 

01278 

01279 

01280A 

012B1A 

01282A 

01283A 

01284A 

*-* « nnc a. 

v x «td5n 
01286A 



105C 34 
10SE 17 
1061 
1062 35 

1064 40 

1065 81 
1067 22 

1069 SB 
106B 16 
106E 34 

1070 17 
1073 
1074 IF 
1076 17 
1079 35 
107B 39 



107C 6F 
107F CC 
1082 ED 
1085 17 
1088 
108C 6D 
108F 26 
1091 30 
1093 17 
1096 20 
109B 17 
109B 
10A0 



10A1 
10A5 A6 
10A8 81 
10AA 25 
10AC AE 
10AE 17 
10B1 20 
10B3 17 



10B6 
10BA E6 
10BD AE 
10BF CI 
10C1 25 

10C5 5A 



02 

016F 
2D 
02 

09 

05 

30 

0127 

02 

015D 

24 

41 

00F8 

02 



11 DO 
A 



A 
106E 

A 
1195 

11D0 
A 

1171 



C8 IB A 
0000 A 
C8 3C A 
0162 11EA 



C8 

07 

4F 

00F9 

09 

0141 

2A 

00 

10A1 



2E A 

1098 

A 

118F 

10A1 

11DC 

A 

A 

A 



C8 

05 

07 

4D 

OOCO 

03 

00D5 

10B6 



IB 



A 

A 
10B3 

A 
1171 
10B6 
11BB 

A 



C8 IB A 

4D A 

05 A 

03 10C6 
01 



0UTSM3 



0UTSM2 



PSHA 

LBSR 

FCB 

PULA 

NEGA 

CMPA 

BHI 

ADDA 

LBRA 

PSHA 

LBSR 

FCB 

TSX 

LBSR 

PULA 

RTS 



OUTCHR PRINT MINUS SIGN 



#9 

0UTSM2 
#*30 
OUTEE 

OUTCHR 
'$ 

OUTBYT 



SINGLE DIGIT? 
MAKE ASCII 

PRINT AS HEX 



PRINT DATA LINE 



LENGTH, U 

#0 

REFX,U 

PASS2C 



STARS, U 

STARS 1 

REALPCU 

OUTADR 

STARS2 

PDATAI 

/**** / 



* 



DO HE FLAG THIS LINE? 

ADDRESS OF PC 
PRINT PC 

PRINT STARS INSTEAD 



# 

* 

DATCOL CLR 
LDD 
STD 

PRDATC LBSR 

SETMSK 

TST 

BNE 

LEAX 

LBSR 

BRA 

STARS 1 LBSR 
FCC 
FCB 

STARS2 EQU 

♦ 

* PREBYTE 

SETMSK 

LDA 

CMPA 

BLO 

LDX 

LBSR 

BRA 

FMT1 LBSR 

FMT2 EQU 

# 

* HEX VALUE 
* 

SETMSK 

LDB 

LDX 

CMPB 

BLO 

I NX 

DECE 



LENGTH, U 

#5 

FMT1 

PRC,U 

OUTBYT 

FMT2 

0UTSP2 

* 



NEED PREBYTE FIELD? 

PRINT PREBYTE 

ELSE SPACE OVER FIELD 



LENGTH, U 
PRC,U 
#5 
FMT3 



PREBYTE ALREADY? 
SKIP PREBYTE 
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012B7A 


10C6 


8D 


OC 


10D4 


FMT3 


BSR 


BOS 


01288A 


10C8 


8D 


OA 


10D4 




BSR 


BOS 


012B9A 


10CA 










SETMSK 


3 


01290A 


10CE 


8D 


04 


10D4 




BSR 


BOS 


01291A 


10D0 


8D 


02 


10D4 




BSR 


BOS 


01292A 


10D2 


20 


OA 


10DE 




BRA 


FMT4 


01293 










* 






01294 










* ONE 


BYTE OR SPACE 


01295 










* 






01296A 


10D4 


5D 






BOS 


TSTB 




01297A 


10D5 


2F 


04 


10DB 




BLE 


B0S2 


01298A 


10D7 


5A 








DECB 




01299A 


10D8 


16 


0096 


1171 




LBRA 


OUTBYT 


01300A 


10DB 


16 


OOAD 


11BB 


B0S2 


LBRA 


0UTSP2 


01301 










* 






01302 










* HEX 


EXTRA ! 


MARKER 


01303 










* 






01304A 


10DE 








FMT4 


SETMSK 


4 


01305A 


10E2 


86 


20 


A 




LDA 


#«20 


01306A 


10E4 


E6 


C8 IB A 




LDB 


LENGTH, U 


01307A 


10E7 


CI 


02 


A 




CMPB 


#2 


01308A 


10E9 


2F 


02 


10ED 




BLE 


FMT5 


01309A 


10EE 


86 


2B 


A 




LDA 


#» + 


01310A 


10ED 


17 


00A5 


1195 


FMT5 


LBSR 


OUTEE 


01311 










» 






01312 










* REFERENCE < 


ADDRESS 


01313 










* 






01314A 


10F0 










SETMSK 


8 


01315A 


10F4 


17 


009C 


1193 




LBSR 


OUTSP 


01316A 


10F7 










SETMSK 


5 


01317A 


10FB 


AE 


CB 3C A 




LDX 


REFX,U 


01318A 


10FE 


27 


30 


1130 




BEQ 


FMT6 


01319A 


1100 


30 


02 


A 




LEAX 


2,X 


01320A 


1102 


17 


008A 


118F 




LBSR 


OUTADR 


01321A 


1105 










SETMSK 


6 


01322A 


1109 


AE 


C8 23 A 




LDX 


LASREF,U 


01323A 


HOC 


27 


07 


1115 




BEQ 


FMT8 


01324A 


HOE 


30 


C8 23 A 




LEAX 


LASREF,U 


0132SA 


1111 


8D 


7C 


11BF 




BSR 


OUTADR 


01326A 


1113 


20 


12 


1127 




BRA 


FMT9 


01327A 


1115 


6D 


C8 33 A 


FMT8 


TST 


ECFLAG,U 


01328A 


1118 


2A 


OB 


1125 




BPL 


FMT12 


01329A 


111A 


17 


OOBF 


11DC 




LBSR 


PDATAI 


01330A 


HID 




2E 


A 




FCC 


/. . . . / 


01331A 


1122 




00 


A 




FCB 





01332A 


1123 


20 


02 


1127 




BRA 


FMT9 


01333A 


1125 


8D 


60 


1187 


FMT12 


BSR 


0UTSP5 


01334A 


1127 


AE 


C8 3C A 


FMT9 


LDX 


REFX,U 


01335A 


112A 


EC 


4F 


A 




LDD 


REALPCU 


01336A 


112C 


ED 


04 


A 




STD 


4,X 


01337A 


112E 


20 


08 


1138 




BRA 


FMT7 


01338A 


1130 


8D 


55 


1187 


FMT6 


BSR 


0UTSP5 


01339A 


1132 










SETMSK 


6 


01340A 


1136 


8D 


4F 


1187 




BSR 


0UTSP5 


01341 






1138 


A 


FMT7 


EQU 


* 


01342 










♦ 






01343 










* FIVE CHARACTER ASCII 



PRINT BYTE OR SPACE 
AND THE NEXT ONE 

OTHERS IN MASK 3 ONLY 



LENGTH COUNT GONE? 
PRINT SPACE IF SO 
COUNT DOWN BYTES 
PRINT THE BYTE 



LENGTH OF INSTR 
IF >2, DIDN'T FIT 

MARK LEFTOVERS 



NOT MEMORY REF? 
PRINT ADDR OF LABEL 



POINT AT XREF 

AND PRINT XREF COL 

END-OF-CHAIN? 



SAVE NEW XREF 



PAGE 024 0iGEN80.TXT THE MICRO 
GEN80: SOURCE GEN V 1.3 



WORKS 



01344 

01345A 

01346A 

01347A 

01348A 

01349A 

01350A 

01351A 

01332A 

01353A 

013S4A 

01355A 

01356A 

01357 

01358A 

01359A 

01360A 

01361A 

01362A 

01363A 

01364A 

01365 

01366 

01367 

01368A 

01369A 

01370A 

01371A 

01372A 

01373A 

01374A 

01375 

01376 

01377 

0137B 

01379 

01380 

01381 

01382 

01383 

01384 

01385A 

01386A 

01387A 

01388A 

01389A 

01390A 

01391A 

01392A 

01393A 

01394A 

01395A 

01396A 

01397A 

01 398 

01399 

01400 



1138 
113C 
113E 
1140 
1141 
1143 
1146 
1148 
114A 
U4C 
114D 
U4F 

1151 
1154 
1156 
115A 
11SC 
1160 
1162 



1163 
1165 
1167 
1169 
116B 
116D 
116F 



1171 
1173 
1174 
1175 
1176 
1177 
1179 
117B 
117D 
117F 
1181 
1183 
1185 



8D 
AE 
5F 
86 
El 
2C 
A6 
8D 
5C 
CI 
25 

6D 
26 

8D 

8D 

39 



84 
Bl 
27 
81 
2C 
86 
20 



A6 
47 

47 
47 
47 
8D 
A6 
84 
81 
23 
8E 
8E 
20 



55 1193 

4D A 

20 A 

C8 IB A 

02 114A 

80 A 

17 1163 



05 
F0 



C8 2C A 
06 115C 

7C 11DB 

31 1193 



7F 
7F 
04 
20 
02 
2E 
24 



84 



02 

80 
OF 
09 
02 
07 
30 
0E 



A 

A 
116D 

A 
116F 

A 
1195 



U7B 
A 
A 
A 

1183 
A 
A 

1195 



SETMSK 7 
BSR OUTSP 



A 
1141 



LDX 
CLRB 

FMT10 LDA 
CMPB 
BGE 
LDA 

FMT11 BSR 
INCB 
CMPB 
BLO 



PRC,U 

#*20 SPACE IF PAST END 

LENGTH, U PAST END OF INSTR? 

FMT11 

,X+ GET MORE DATA IF THERE 

OUTASC PRINT IF PRINTABLE 



#5 
FMT10 



END OF COLUMN? 



TST 
BNE 

SETMSK 9 
BSR CRLF 
FMT13 SETMSK 10 

BSR OUTSP 
RTS 

* PRINT ASCII EQUIVALENT 
* 



C0L80,U DON'T CR ON 80 COLUMNS 

FMT13 

ONLY IN FULL MODE 
CARRIAGE RETURN HERE 



OUTASC ANDA 
CMPA 
BEQ 
CMPA 
BGE 
0UTAS3 LDA 
0UTAS2 BRA 



#»7F 

#*7F 

0UTAS3 

#*20 

0UTAS2 

#' . 

OUTEE 



FORGET PARITY 
IS IT RUBOUT? 

PRINTABLE? 

USE PERIOD IF CAN'T PRINT 



ft*********************************************** 

* # 

* PRINTER OUTPUT UTILITY ROUTINES * 

* * 
ft*********************************************** 

* 

* PRINT BYTE 
* 

OUTBYT LDA 0,X 

ASRA 

ASRA 

ASRA 

ASRA 

BSR OUTNY 

LDA , X+ 
OUTNY ANDA #*F 

CMPA #9 

BLS 0UTNY2 

ADDA #7 
0UTNY2 ADDA #*30 

BRA OUTEE 
* 

* PRINT SPACES 
* 
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0SGEN80.TXT THE MICRO 
GEN80 5 SOURCE GEN V 1.3 



WORKS 



01401A 


1187 


8D 


OA 




1193 


0UTSP5 


ESR 


OUTSP 


01402A 


1189 


8D 


00 




U8B 




BSR 


0UTSP2 


01403A 


118B 


8D 


06 




1193 


0UTSP2 


BSR 


OUTSP 


01404A 


11BD 


20 


04 




1193 




BRA 


OUTSP 


01405 












# 






01406 












* PRINT ADDRESS AND SPACE 


01407 












* 






01408A 


11BF 


8D 


EO 




1171 


OUTADR 


BSR 


OUTBYT 


01409A 


1191 


8D 


DE 




1171 




ESR 


OUTBYT 


01410A 


1193 


86 


20 




A 


OUTSP 


LDA 


#*20 


01411 












* 


FALL THRU 


01412 












# 






01413 












* OUTPUT ONE 


CHARACTER TO PRINTER 


01414 












•* 






01415A 


1195 


8D 


53 




11EA 


OUTEE 


ESR 


PASS2C DON'T PRINT 1ST PASS 


01416A 


1197 


6D 


CB 


2B A 




TST 


SAVEIT,U NOT PRINTING? 


01417A 


119A 


26 


31 




11CD 




BNE 


TOY 


01418A 


119C 


34 


06 




A 




PSHS 


D 


01419A 


119E 


EC 


CS 


2F 


A 




LDD 


MASKF,U FIELD MASK 


01420A 


11A1 


A4 


CB 


25 A 




ANDA 


CURMSK,U IS THAT BIT SET IN CU 


01421A 


11A4 


26 


03 




11A9 




BNE 


0UTEE2 


01422A 


11A6 


E4 


CB 


26 A 




ANDB 


CURMSK+1,U TRY OTHER BYTE 


01423A 


11A9 


35 


06 




A 


0UTEE2 


PULS 


D 


01424A 


11AE 


27 


22 




11CF 




BEQ 


0UTEE3 IF ZERO, DON'T PRINT 


01425A 


HAD 


6C 


C8 


31 


A 




INC 


COLCNT,U COUNT COLUMNS 


01426A 


HBO 


81 


OD 




A 




CMPA 


#*D CARRIAGE RETURN? 


01427A 


11E2 


26 


11 




UC5 




ENE 


0UTEE4 


01428A 


11B4 


A6 


C8 


31 


A 




LDA 


COLCNT,U 


01429A 


11B7 


6F 


C8 


31 


A 




CLR 


COLCNT,U RESET COUNTER 


01430A 


11BA 


81 


21 




A 




CMPA 


#33 AT END OF LINE? 


01431A 


11BC 


26 


05 




UC3 




BNE 


0UTEE5 


01432A 


11EE 


6D 


C8 


27 


A 




TST 


N0CR32,U FORGET THE CR? 


01433A 


11C1 


26 


OC 




11CF 




BNE 


0UTEE3 


01434A 


11C3 


86 


OD 




A 


0UTEE5 


LDA 


#$D 


01435A 


11C5 


6D 


C8 


2E 


■ A 


0UTEE4 


TST 


PRINTR,U ARE WE PRINTING 


01436A 


11C8 


27 


2E 




11F8 




BEQ 


TOUCH TO SCREEN INSTEAD? 


01437A 


11CA 


16 


F43D 


060A 




LBRA 


OUTPRT TO RS232 


01438 












* 






01439 












* SAVE CHARACTER IN BUFFER 


01440 












# 






01441A 


11CD 


A7 


AO 




A 


TOY 


STA 


,v+ 


01442A 


UCF 


39 








0UTEE3 


RTS 




01443 












# 






01444 












* OUTPUT ONE 


CHARACTER INLINE 


01445 












* 






01446A 


11 DO 


35 


10 




A 


OUTCHR 


PULS 


X 


01447A 


11D2 


A6 


80 




A 




LDA 


,X+ GET THE CHARACTER 


0144BA 


11D4 


8D 


BF 




1195 




BSR 


OUTEE PRINT IT 


01449A 


11D6 


6E 


84 




A 




JMP 


0,X RETURN PAST PARAMETER 


01450 












# 






01451 












* CARRIAGE RET / LINE FEED 


01452 












# 






01453A 


11D8 


86 


OD 




A 


CRLF 


LDA 


#*D NOT HARD, IS IT 


01454A 


11DA 


20 


B9 




1195 




BRA 


OUTEE 


01455 












* 






01456 












* jt K 1 ii i un i m 




01457 












# 







PAGE 026 OS GENBO.TXT THE MICRO 
GEH80: SOURCE GEN V 1.3 



WORKS 



01458A 

01459A 

01460A 

01461 

01462A 

01463A 

01464A 

01465A 

01466 

01467 

01468 

01469A 

01470A 

01471A 

01472A 

01473 

01474 

01473 

01476 

01477 

0147BA 

01479A 

01480A 

01481 

014B2A 

01483A 

01484A 

01485A 

01486A 

01487A 

01488A 

01489A 

01490 

01491A 

01492A 

01493A 

01494A 

01495 

01496 

01497 

01498 

01499 

01500 

01501 

01502 

01503 

01504 

01505A 

01506A 

01 507 A 

0150BA 

01509A 

01510A 

01511A 

01512A 

01513A 

01514A 



11DC 35 
11DE 8D 
11E0 6E 

11E2 A6 
11E4 27 
11E6 8D 
11E8 20 



11EA 6D 
11ED 26 
11EF 32 
11F1 39 



11F2 AE 
11F4 8D 
11F6 6E 

11F8 6D 
11FB 27 
11FD 34 
11FF AE 
1203 30 
1205 26 
1207 35 

1209 16 

120C A6 
120E 27 

1210 8D 
1212 20 



1214 AE 
1216 A6 

1218 48 

1219 48 
121A 48 
121E 47 
121C 47 
121D 47 
121E 17 
1221 8D 



10 
02 
84 

BO 
OB 
AD 
F8 



C8 
02 

62 



A 

11E2 
A 

A 

11F1 
1195 
UE2 



11 A 

11F1 

A 



PDATAI 



PDATA 



El 
16 
B4 



A 

120C 
A 



C8 2A A 
OC 1209 
10 A 
8D F412 
IF 

FC 1203 
10 A 
F3FA 0606 



80 
El 
E6 
FB 



A 
11F1 
11F8 
120C 



4E 
01 



PULS 

BSR 

JMP 

LDA 
BEG. 
BSR 
BRA 



X 

PDATA 

0,X 

,X+ 

PAS2C1 
OUTEE 
PDATA 



USE RET ADDR AS PTR 
PRINT IN-LINE DATA 
RETURN PAST STRING 

GET A CHARACTER 
IF ZERO, LEAVE 
PRINT IT 
AND LOOP 



* ONLY ON PASS 2 

# 

PASS2C 



PAS2C1 



TST 
BNE 
LEAS 
RTS 



PASS,U 
PAS2C1 
2,S 



PULL 1ST RET ADDR 



* 

* DISPLAY TO SCREEN 

# 

INDIS 



LDX 
BSR 
JMP 



,S++ USE RETURN ADDRESS 

DISPLA AS STRING POINTER 

0,X AND RETURN PAST STRING 



TOUCH 



TST 
BEQ 
PSHS 
LDX 

T0UCH2 DEX 
BNE 
PULS 

T0UCH3 LBRA 

* 

DISPLA LDA 
BEQ 
BSR 
BRA 



ARE HE IN SLOH MODE? 
IF NOT, GO AHEAD 



SLOH,U 

T0UCH3 

X 

SC0N,PCR SLOW SPEED CONSTANT 

COUNT FOR DELAY 
T0UCH2 
X 
OUTCH 



,X+ 

PAS2C1 
TOUCH 
DISPLA 



GET THE CHARACTER 
END OF STRING? 
TO ROM ROUTINE 



* * 

* CALCULATE ADDRESSING MODE OUTPUT * 

* ♦ 
♦a******************************************** 

# 

* INDEXED ADDRESSING MODES 
* 

A M0DE1 LDX 
A LDA 

ASLA 

ASLA 

ASLA 

ASRA 

ASRA 

ASRA 

LBSR 



PACU 
1,X 



5,R 



FE38 1059 MOD 18 LBSR OUTSM 
AD 11 DO COMMAR BSR OUTCHR 
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0: GEH80.TXT THE MICRO 
GEN80! SOURCE GEN V 1.3 



WORKS 



01515A 

01516A 

01517A 

01518 

01519A 

01520A 

01 521 A 

01522 

01523A 

01524A 

01525 

01526A 

01527A 

0152BA 

01529A 

01530A 

01 531 A 

01532 

01533A 

01534A 

01535A 

01536A 

01537 

01538A 

01539A 

01540A 

01541 

01542A 

01543A 

01544 

01545A 

01546A 

01547 

01548A 

01549A 

01550A 

01551 

01552A 

01553A 

01554A 

01555A 

01556 

01557A 

01558A 

01559 

01560A 

01561A 

01562A 

01563A 

01564A 

01565A 

01566A 

01567A 

01568A 

01569A 

01570A 

01 571 A 



1223 
1224 A6 
1227 16 

122A 8D 
122C 86 
122E 16 

1231 8D 
1233 20 

1235 86 
1237 17 
123A 86 
123C 17 
123F A6 
1242 16 

1245 86 
1247 17 
124A 86 
124C 20 

124E 86 
1250 17 
1253 20 

1255 86 
1257 20 

1259 86 
125B 20 

125D AE 
125F A6 
1261 20 

1263 AE 
1265 EC 
1267 17 
126A 20 

126C 86 
126E 20 

1270 17 
1273 
1274 AE 
1276 E6 

1278 ID 

1279 E3 
127B EB 
127E 89 

1280 8D 
1282 17 
1285 
1289 



2C A 
C8 37 A 
FF6E 1195 

F5 1221 
2B A 
FF64 1195 



F7 
F7 



122A 
122C 



2C A 
FF5B 1195 
2D A 
FF56 1195 
C8 37 A 
FF50 1195 

2C A 
FF4B 1195 
2D A 
E9 1237 

30 A 
FF42 1195 
CC 1221 



42 
F7 

41 
F3 



A 
1250 

A 

1250 



4B A 

02 A 

BB 121E 

4E A 

02 A 

FCA2 OFOC 

B5 1221 



* 

M0DE2 

M0D23 

* 
M0DE3 

# 

M0DE4 

M0DE45 



* 
MODES 



44 
EO 



A 

1250 



FF5D 11 DO 

3C A 

4B A 

02 A 



* 

M0DE6 

M0DE67 

* 
M0DE7 

# 
M0DE8 

* 
M0DE9 



M0DE10 



* 
MODE 11 

M0DE12 



4F 

CB 

00 

17 

FF57 

2C 

00 



IB 



A 
A 
A 
1299 
11DC 
A 
A 



M0D24 



FCB 
LDA 
LBRA 

BSR 
LDA 
LBRA 

BSR 
BRA 

LDA 

LBSR 

LDA 

LBSR 

LDA 

LBRA 

LDA 
LBSR 
LDA 
BRA 

LDA 

LBSR 

BRA 

LDA 
BRA 

LDA 
BRA 

LDX 
LDA 
BRA 

LDX 
LDD 
LBSR 
BRA 

LDA 
BRA 

LBSR 

FCC 

LDX 

LDB 

SEX 

ADDD 

ADDB 

ADCA 

BSR 

LBSR 

FCC 

FCB 



INDREG,U 
OUTEE 

COMMAR 
#' + 
OUTEE 

M0DE2 
M0D23 

#' 

OUTEE 

#»- 

OUTEE 

INDREG,U 

OUTEE 

#', 
OUTEE 
#'- 
M0DE45 

#'0 

OUTEE 

COMMAR 

#'B 
M0DE67 

#'A 
M0DE67 

PAC,U 
2,X 

MOD 18 

PAC,U 
2,X 

REFERN 
COMMAR 

#'D 
M0DE67 

OUTCHR 
'<• 

PAC,U 
2,X 

REALPCU 

LENGTH, U 

#0 

TREFQ 

PDATAI 

/,PCR/ 





R+ 



R++ 



,— R 



0,R 

E,R 
A,R 
8,R 

16, R 
D,R 
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0: GEN80.TXT THE MICRO 
GEN80: SOURCE GEN V 1.3 



WORKS 



01572A 


12BA 


39 










RTS 




01573 












# 






01574A 


128B 


17 


FF42 


11D0 


M0DE13 


LBSR 


OUTCHR 16, PC 


01575A 


128E 




3E 




A 




FCC 


'>» 


01576A 


128F 


AE 


4B 




A 




LDX 


PAC,U 


01577A 


1291 


EC 


02 




A 




LDD 


2,X 


01578A 


1293 


20 


E4 




1279 




BRA 


M0D24 


01579 












# 






01580A 


1295 


AE 


4B 




A 


M0DE14 


LDX 


PAC,U CABS IND3 


01581A 


1297 


EC 


02 




A 




LDD 


2,X 


01582A 


1299 


16 


FC70 


OFOC 


TREFQ 


LBRA 


REFERN 


01583 


















01584 












* 






01585 












* NON 


-INDEXED ADDRESSING MODES 


01586 












* 






01587A 


129C 


39 








MODE 15 


RTS 


INHERENT 


01588 












* 






01589A 


129D 


AE 


4B 




A 


MODE 16 


LDX 


PAC,U PSH/PUL 


01590A 


129F 


A6 


84 




A 




LDA 


X 


01591A 


12A1 


84 


02 




A 




ANDA 


#2 


01592A 


12A3 


A7 


C8 


3E A 




STA 


M0D0P,U 


01593A 


12A6 


6D 


C8 


28 A 




TST 


FULLMD,U 


01594A 


12A9 


26 


OF 




12BA 




BNE 


MOD 165 


01595A 


12AB 


A6 


01 




A 




LDA 


i,x 


01596A 


12AD 


5F 










CLRE 




01597A 


12AE 


44 








MOD 164 


LSRA 




0159BA 


12AF 


C9 


00 




A 




ADCB 


#0 


01599A 


12B1 


4D 










TSTA 




01600A 


12B2 


26 


FA 




12AE 




BNE 


MOD 164 


01601A 


12B4 


CI 


04 




A 




CMPB 


#4 


01602A 


12B6 


1022 


0094 


134E 




LBHI 


M0DE21 


01603A 


12BA 


A6 


01 




A 


MOD 165 


LDA 


i,x 


01604A 


12BC 


27 


32 




12F0 




BEQ 


MODERR 


01605A 


12BE 


30 


8D 


0112 




LEAX 


RLISTA-2,PCR 


01606A 


12C2 


30 


02 




A 


M0D161 


LEAX 


2,X 


01607A 


12C4 


44 










LSRA 




01608A 


12C5 


24 


FB 




12C2 




BCC 


M0D161 


01609A 


12C7 


34 


16 




A 




PSHS 


D,X 


01610A 


12C9 


EC 


84 




A 




LDD 


X 


016UA 


12CB 


30 


8B 




A 




LEAX 


D,X 


01612A 


12CD 


A6 


84 




A 




LDA 


0,X 


01613A 


12CF 


81 


53 




A 




CMPA 


#'S 


01614A 


12D1 


26 


09 




12DC 




BNE 


MOD 162 


01615A 


12D3 


6D 


C8 


3E A 




TST 


M0D0P,U 


01616A 


12D6 


26 


04 




12DC 




BNE 


MOD 162 


01617A 


12D8 


30 


8D 


01 1A 




LEAX 


REGUM,PCR 


01618A 


12DC 


17 


FF03 


UE2 


MOD 162 


LBSR 


PDATA 


01619A 


12DF 


35 


16 




A 




FULS 


X,D 


01620A 


12E1 


4D 










TSTA 




01621A 


12E2 


27 


OB 




12EF 




BEQ 


MOD 163 


01622A 


12E4 


IF 


89 




A 




TFR 


A,B 


01623A 


12E6 


86 


2C 




A 




LDA 


#', 


01624A 


12E8 


17 


FEAA 


1195 




LBSR 


OUTEE 


01B25A 


12EB 


IF 


98 




A 




TFR 


B,A 


01626A 


12ED 


20 


D3 




12C2 




ERA 


M0D161 


01627A 


12EF 


39 








M0D163 


RTS 




01628 












# 







PAGE 029 0: GEN80.TXT THE MICRO 
GENSO: SOURCE GEN V 1.3 



WORKS 



01629A 

01630A 

01631A 

01632 

01633A 

01634A 

01635A 

01636A 

01637A 

01638A 

01639A 

01640A 

01 641 A 

01642A 

01643A 

01644A 

01645A 

01646A 

01647A 

01648A 

01649A 

01650A 

01 651 A 

01652A 

01653A 

01 654 A 

01655A 

01656A 

01657A 

01658A 

01659A 

01660 

01 661 A 

01662A 

01663A 

01664A 

01665A 

01666A 

01667 

01668A 

01669A 

01670A 

01671A 

01672A 

01673A 

01674A 

01675 

01676A 

01677A 

01678A 

01679 

01680A 

016B1A 

01682A 

01683A 

01584A 

01685A 



12F0 8D 
12F2 30 
12F6 16 

12F9 AE 
12FB A6 
12FD 2A 
12FF 88 
1301 85 
1303 26 
1305 A6 

1307 47 

1308 47 

1309 47 
130A 47 
130B 8D 
130D 17 
1310 
1311 AE 
1313 A6 
1315 84 
1317 81 
1319 22 
131B 30 
131F 30 

1321 4A 

1322 2A 
1324 EC 
1326 27 
1328 30 
132A 16 

132D 17 
1330 
1331 AE 
1333 E6 

1335 4F 

1336 16 

1339 AE 
133B E6 
133D ID 
133E E3 

1340 EB 
1343 89 
1345 16 

1348 AE 
134A EC 
134C 20 

134E 17 
1351 

1352 AE 

1354 A6 

1356 2E 



5C 134E MODERR 
8D OOBD 
FEE9 11E2 



4B 
01 
02 
08 
08 
EB 
01 



A 
A 

1301 
A 
A 

12F0 
A 



08 

FECO 

2C 

4B 

01 

OF 

OB 

D5 

8D 

02 



FB 
84 
CB 
SB 
FEB5 

FEAO 
3C 
4B 
01 



FBD3 OFOC 



4E 
01 



4F A 
C8 IB A 
00 A 
FEC4 OFOC 



MODE 17 



M0D171 



1315 

11D0 

A 

A 

A 

A 

A 

12F0 

009D 

A 



4B 
01 
FO 



A 

A 

133E 



PREGT 



MOD 172 



131F 
A 

12F0 
A 

11E2 

UDO 
A 
A 
A 



# 
MODE 18 



A MODE 19 
A 



M0D191 



# 
M0DE20 



FE7F 11 DO M0DE21 



23 
4E 
01 
05 



A 

A 

A 

135D 



1358 17 FCFE 1059 



BSR 

LEAX 

LBRA 

LDX 

LDA 

BPL 

EORA 

BITA 

BNE 

LDA 

ASRA 

ASRA 

ASRA 

ASRA 

BSR 

LBSR 

FCB 

LDX 

LDA 

ANDA 

CMPA 

BHI 

LEAX 

LEAX 

DECA 

BPL 

LDD 

BEQ 

LEAX 

LBRA 

LBSR 

FCB 

LDX 

LDB 

CLRA 

LBRA 

LDX 

LDB 

SEX 

ADDD 

ADDB 

ADCA 

LBRA 

LDX 
LDD 
BRA 

LBSR 

FCB 

LDX 

LDA 

BMI 

LBSR 



M0DE21 DEFAULT TO IMM 
NOTMS,PCR NOT FLAGGED MESSAGE 
PDATA 



PAC,U 

1,X 

M0D171 

#$8 

#8 

MODERR 

l.X 



TFR/EXG 



PREGT 

OUTCHR 
i 

PAC,U 

1,X 

#*F 

#*B 

MODERR 

RLISTB-2,PCR 

2,X 

MOD 172 

X 

MODERR 

D,X 

PDATA 



OUTCHR 
'»< 

PAC,U 
1,X 

REFERN 

PAC,U 
1,X 

REALPC,U 
LENGTH, U 
#0 
REFERN 

PAC,U 

1,X 

M0D191 

OUTCHR 
'# 

PAC,U 
1,X 

OUTSM 



DIRECT PAGE 



RELATIVE 



16-BIT RELATIVE 



IMMEDIATE 



1GE 030 0: GEN80.TXT 

GEN80 : SOURCE 



THE MICRO 

GEN V I . 3 



WORKS 



01636A 

1 6B7A 

0163SA 

01689A 

01690A 

01 691 A 

01692A 

01693A 

01694A 

01695A 

01636A 

01697A 

01698A 

01699A 

1 700A 

01 701 A 

01702A 

01703 

01704A 

01705A 

01706A 

01707 

01708A 

01709A 

01710A 

01711 

01712 

01713 

01714 

01715A 

01716A 

01717A 

01718A 

01719A 

01720A 

01 721 A 

01722A 

01723A 

01724A 

01725A 

01726 

01727A 

01728A 

01729A 

01730A 

01 731 A 

01732A 

01733A 

01734 

01735A 

01736A 

01737A 



135E 
135D 
1360 
1362 
1364 
1366 
1368 
136A 
136C 
136F 
1372 
1373 
1375 
1377 
137A 
137D 
137E 39 

137F AE 
1381 EC 
1383 16 

1386 17 
1389 
138A 20 



20 
17 
AE 
A6 
81 
2D 
81 
27 
17 
17 

AE 
A6 
17 
17 



138C 
138E 
1390 
1393 
1395 
1397 
1399 
139B 
139D 
13A0 
13A2 



AE 
A6 
17 
84 
27 
81 
23 
34 
17 
35 
16 



13A5 AE 
13A7 A6 
13A9 17 
13AC 30 
13B0 16 
13B3 
13B6 

13B7 AE 
13B9 EC 
13BE 16 



FDOE 

4E 

01 

20 

16 

7F 

12 

FE24 

FE5E 

22 

4B 

01 

FE1B 

FE53 

22 



4E 
01 
FB86 

FE47 

23 
F3 



1360 

106E M0D212 

A M0D213 

A 

A 
137E 

A 
137E 
1193 
11D0 

A 

A 

A 
1195 
11D0 

A 

RTS 
* 

A M0DE22 

A 
OFOC 

# 
11 DO M0DE23 

A 
137F 

# 

* HON 



ERA 

LBSR 

LDX 

LDA 

CMPA 

BLT 

CMPA 

BEQ 

LBSR 

LBSR 

FCE 

LDX 

LDA 

LBSR 

LBSR 

FCB 

RTS 

LDX 
LDD 
LBRA 

LBSR 

FCE 

BRA 



M0D213 

0UTSM2 

PAC,U 

1,X 

#*20 

RTS 

#*7F 

RTS 

OUTSP 

OUTCHR 

PACU 
1,X 
OUTEE 
OUTCHR 



PAC,U 
1,X 

REFERN 

OUTCHR 
M0DE22 



?r, 



EXTENDED 



16-EIT IMM 



-INSTRUCTION ADDRESSING MODES 



4D 

84 

FCDE 

7F 

E7 

20 

E3 

02 

FDEB 

02 

FDFO 



A 

A 
106E 

A 
137E 

A 
137E 

A 
118E 

A 
1195 



4D A 
84 A 
FCC2 106E 
8D 0003 
FE2F UE2 
20 A 
00 A 

4D A 
84 A 
FB4E OFOC 



M0DE24 LDX 
LDA 
LBSR 
ANDA 
BEQ 
CMPA 
BLS 
PSHS 
LESR 
PULS 
LBRA 

* 

M0DE25 LDX 
LDA 
LBSR 
LEAX 
LBRA 

NOTMS FCC 
FCE 

* 

M0DE26 LDX 
LDD 
LBRA 



PRCU 
X 

0UTSM2 

#*7F 

RTS 

#*20 

RTS 

A 

0UTSP2 

A 

OUTEE 

PRC,U 

X 

0UTSM2 

NOTMS, PCR 

PDATA 

/ <</ 



PRCU 

0,X 

REFERN 



NORMAL FCB 



ERROR FCB 



ADDRESS TABLE MODE 



PAGE 031 0: GEH80.TXT THE MICRO WORKS 

GENBOs SOURCE GEN V 1.3 



01739 








# 






01740 








* TABLES 




01741 








# 






01742A 


13BE 


003A 


A 


RLISTB 


FDB 


REGDM-* 


01743A 


13 CO 


0030 


A 




FDE 


REGXM-# 


01744A 


13C2 


0030 


A 




FDB 


REGYM-# 


01745A 


13C4 


0032 


A 




FDB 


REGUM- # 


01746A 


13C6 


002E 


A 




FDB 


REGSM-* 


01747A 


13C8 


0032 


A 




FDB 


REGPCM-* 


01748A 


13CA 


0000 


A 




FDB 





01749A 


13CC 


0000 


A 




FDE 





01750A 


13CE 


00 IE 


A 




FDB 


REGAM- * 


01 751 A 


13D0 


00 IE 


A 




FDB 


REGBM-* 


01752A 


13D2 


0014 


A 




FDB 


CCRM-* 


01753A 


13D4 


0015 


A 




FDB 


DPRM-* 


01754 








# 






01755A 


13D6 


0010 


A 


RLISTA 


FDE 


CCRM-* 


01756A 


13D8 


0014 


A 




FDE 


REGAM- * 


01 757 A 


13DA 


0014 


A 




FDB 


REGBM-* 


0175BA 


13DC 


000D 


A 




FDB 


DPRM-* 


01759A 


13DE 


0012 


A 




FDB 


REGXM-* 


01760A 


13E0 


0012 


A 




FDB 


REGYM- * 


01 761 A 


13E2 


0012 


A 




FDE 


REGSM-* 


01762A 


13E4 


0016 


A 




FDB 


REGPCM-* 


01763 








# 






01764A 


13E6 


43 


A 


CCRM 


FCC 


/CC/ 


01765A 


13E8 


00 


A 




FCB 





01766A 


13E9 


44 


A 


DPRM 


FCC 


/DP/ 


01767A 


13EB 


00 


A 




FCB 





01768A 


13EC 


41 


A 


REGAM 


FCB 


'A,0 


01769A 


13EE 


42 


A 


REGBM 


FCB 


»B,0 


01770A 


13F0 


58 


A 


REGXM 


FCB 


'X,0 


01 771 A 


13F2 


59 


A 


REGYM 


FCB 


'Y,0 


01772A 


13F4 


53 


A 


REGSM 


FCB 


'S,0 


01773A 


13F6 


55 


A 


REGUM 


FCB 


'U,0 


01774A 


13FB 


44 


A 


REGDM 


FCB 


'D,0 


01775A 


13FA 


50 


A 


REGPCM 


FCB 


'P, 'C,0 


01776 














01777 








* END 


OF fi: 


RST FILE 



)77t 





'-v 



<k 



\ 



1 



\ 



n/ 



oX 






v 




